Não foi possível enviar o arquivo. Será algum problema com as permissões?
Essa é uma revisão anterior do documento!
Aula semana 4
Comandos do R digitados na aula em 21/03/2007
a1 <- -10:10 a1 a2 <- seq(-10,10,by=1) a2 a3 <- seq(-10,10,len=21) a3 a4 <- rep(c(5,7,8), 3) a4 a5 <- rep(c(7,9,11), c(2,3,4)) a5 a6 <- rep(c(5,7,8), each=3) a6 a7 <- rep(seq(1:10, by=2), each=5) a7 a8 <- rep(seq(1:10, l=6), 4) a8 a9 <- rep(paste("grupo", 1:5, sep="-"), each=4) a9 a10 <- rep(paste(c("Tarde", "Noite"), 1:6, sep=""), each=4) a10 ## "Semana 3 Quarta","Semana 3 Sexta","Semana 4 Quarta","Semana 4 Sexta", rep("Semana", 4) rep(3:4, each=2) rep(c("quarta", "sexta"), 2) paste(rep("Semana", 4), rep(3:4, each=2),rep(c("quarta", "sexta"), 2)) paste("Semana", rep(3:4, each=2),rep(c("quarta", "sexta"), 2)) paste("Semana", rep(3:4, each=2),c("quarta", "sexta")) a12 <- rep(c("Azul", "Vermelho", "Branco"), 3) a12 class(a12) attributes(a12) a13 <- factor(a12) a13 class(a13) attributes(a13) a13[-2] a13[-c(2,5,8)] matrix(1:20, nc=5) matrix(1:23, nc=5) matrix(1:20, nc=6) matrix(1:10, nc=5, nr=6) matrix(1:10, nr=5, nc=6) t(matrix(1:10, nr=5, nc=6)) matrix(1:10, nc=5, nr=6, byrow=TRUE) m <- matrix(sample(1:20), nc=5) m m[3,2] m[7] m[,2] m[,2:3] m[c(1,3,4),c(2,4)] m[-2,c(2,4)] m[1:2,] m[2,] m[2,,drop=FALSE] dim(m) length(m) m apply(m,1,sum) apply(m,2,sum) apply(m,1,mean) apply(m,2,mean)