## lista objetos ls() ## lista área de trabalho getwd() ## muda área de trabalho setwd("cursoR/") ## entrada de dados (vetor) x <- c(23, 24, 26, 21) ## calcula média e armazzena no objeto mx mx <- mean(x) ## exibe conteúdo do objeto mx x ## caldula desvio pradrao sdx <- sd(x) sdx ## min, max, amplitute ... min(x) max(x) range(x) diff(range(x)) ## sau do R q() ## importa arquivo de dados formato texto (com nome de colunas e virgulas p/decimais ## comando errado... d1 <- read.table("dados1.txt") d1 ## usando argumentos necessarios d1 <- read.table("dados1.txt", header=T, dec=",") d1 ## acessar documentacao da funcao (pressione q para sair ao final) ?read.table ls() ## resumo dos dados summary(d1) d1 mean(d1$Prod) table(d1$Cult) table(d1$C) ## dinmensao do objeto dim(d1) d1 nrow(d1) ncol(d1) ## selecionando linhas e colunas d1[,2] mean(d1[,2]) mean(d1[,1]) d1[,1] d1[2,] d1[2:5,] d1[c(2, 4, 7),] d1[d1$C == "A",] d1[d1$C == A,] d1[d1$C == "B",] d1[d1$Prod > 15,] d1[d1$Prod > 14,] d1[,2] d1[d1$Prod > 14,2] d1.14 <- d1[d1$Prod > 14,] ls() d1.14 ## outra forma de selecionar linhas subset(d1, Prod > 14) ## importanto arquivo direto da web ex01 <- read.table("http://www.leg.ufpr.br/~eder/cursoR/exemplo01") ex01 # visualizando a parte inicial dos dados head(ex01) ## importanto novamente com argumento necessário ex01 <- read.table("http://www.leg.ufpr.br/~eder/cursoR/exemplo01", header=T) head(ex01) ## calculando a média de cada tratamento with(ex01, tapply(resp, trat, mean)) ## calculando outras medidas with(ex01, tapply(resp, trat, sum)) with(ex01, tapply(resp, trat, median)) with(ex01, tapply(resp, trat, sd)) with(ex01, tapply(resp, trat, min)) ## fazendo um gráfico with(ex01, boxplot(resp ~trat)) ## saindo do R q()