Media | Conceito |
---|---|
>= 8 | A |
6,5-7,9 | B |
5,0-6,4 | C |
<5 | R |
## [1] ".GlobalEnv" "package:MASS" "package:knitr"
## [4] "package:rmarkdown" "ESSR" "package:stats"
## [7] "package:graphics" "package:grDevices" "package:utils"
## [10] "package:datasets" "package:methods" "Autoloads"
## [13] "package:base"
## [1] ".GlobalEnv" "package:MASS" "package:knitr"
## [4] "package:rmarkdown" "ESSR" "package:stats"
## [7] "package:graphics" "package:grDevices" "package:utils"
## [1] 303
## [1] 379
## [1] 961
## function (topic, package = NULL, lib.loc = NULL, verbose = getOption("verbose"),
## try.all.packages = getOption("help.try.all.packages"), help_type = getOption("help_type"))
## {
## types <- c("text", "html", "pdf")
## help_type <- if (!length(help_type))
## "text"
## else match.arg(tolower(help_type), types)
## if (!missing(package))
## if (is.name(y <- substitute(package)))
## package <- as.character(y)
## if (missing(topic)) {
## if (!is.null(package)) {
## if (interactive() && help_type == "html") {
## port <- tools::startDynamicHelp(NA)
## if (port <= 0L)
## return(library(help = package, lib.loc = lib.loc,
## character.only = TRUE))
## browser <- if (.Platform$GUI == "AQUA") {
## get("aqua.browser", envir = as.environment("tools:RGUI"))
## }
## else getOption("browser")
## browseURL(paste0("http://127.0.0.1:", port, "/library/",
## package, "/html/00Index.html"), browser)
## return(invisible())
## }
## else return(library(help = package, lib.loc = lib.loc,
## character.only = TRUE))
## }
## if (!is.null(lib.loc))
## return(library(lib.loc = lib.loc))
## topic <- "help"
## package <- "utils"
## lib.loc <- .Library
## }
## ischar <- tryCatch(is.character(topic) && length(topic) ==
## 1L, error = function(e) FALSE)
## if (!ischar) {
## reserved <- c("TRUE", "FALSE", "NULL", "Inf", "NaN",
## "NA", "NA_integer_", "NA_real_", "NA_complex_", "NA_character_")
## stopic <- deparse(substitute(topic))
## if (!is.name(substitute(topic)) && !stopic %in% reserved)
## stop("'topic' should be a name, length-one character vector or reserved word")
## topic <- stopic
## }
## paths <- index.search(topic, find.package(if (is.null(package))
## loadedNamespaces()
## else package, lib.loc, verbose = verbose))
## try.all.packages <- !length(paths) && is.logical(try.all.packages) &&
## !is.na(try.all.packages) && try.all.packages && is.null(package) &&
## is.null(lib.loc)
## if (try.all.packages) {
## for (lib in .libPaths()) {
## packages <- .packages(TRUE, lib)
## packages <- packages[is.na(match(packages, .packages()))]
## paths <- c(paths, index.search(topic, file.path(lib,
## packages)))
## }
## paths <- paths[nzchar(paths)]
## }
## structure(unique(paths), call = match.call(), topic = topic,
## tried_all_packages = try.all.packages, type = help_type,
## class = "help_files_with_topic")
## }
## <bytecode: 0x55f2525e6338>
## <environment: namespace:utils>
## [1] 303 379 961 295 332 47 122 11 53 2749
## [1] "numeric"
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 11.00 70.25 299.00 525.20 367.25 2749.00
## [1] "lm"
##
## Call:
## lm(formula = riqueza ~ area)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.4614 -2.1245 -0.5101 1.4862 7.6863
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 5.226994 1.352158 3.866 0.004770 **
## area 0.007374 0.001431 5.155 0.000869 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 3.555 on 8 degrees of freedom
## Multiple R-squared: 0.7686, Adjusted R-squared: 0.7397
## F-statistic: 26.57 on 1 and 8 DF, p-value: 0.0008693