#========================================================================================== # Estatística Computacional I www.leg.ufpr.br/ce083 # Curso de Estatística - 2013/1 # Prof. Walmes Zeviani # LEG - DEST - UFPR # # Aula 6 (02/05/2013) # * Arranjos, fundamentos, criação, seleção; # * Tabelas (data.frame), fundamentos, criação, atributos, seleção, ordenação; #========================================================================================== #------------------------------------------------------------------------------------------ x1 <- 1:5 x2 <- 21:25 y1 <- cbind(x1, x2) y2 <- rbind(x1, x2) y3 <- cbind(y1, y1, x2) colnames(y3) rownames(y3) y3[,"x1"] #------------------------------------------------------------------------------------------ k <- rep(1:9, 2) i <- 8 p <- c(k[1:(1+i)], k[4:(4+i)], k[7:(7+i)], k[2:(2+i)], k[5:(5+i)], k[8:(8+i)], k[3:(3+i)], k[6:(6+i)], k[9:(9+i)]) M <- matrix(p, 9, 9, byrow=TRUE) set.seed(123) tc <- rep(sample(c(0,3,6)), each=3)+ c(sample(1:3), sample(1:3), sample(1:3)) set.seed(123) tl <- rep(sample(c(0,3,6)), each=3)+ c(sample(1:3), sample(1:3), sample(1:3)) MM <- M[tl,tc] v01 <- sample(rep(c(TRUE,FALSE), c(30,51))) NN <- matrix(v01, 9, 9) MM[NN] <- NA #------------------------------------------------------------------------------------------ nl <- paste("l", 1:9, sep="") nc <- paste("c", 1:9, sep="") colnames(MM) <- nc; rownames(MM) <- nl MM dim(p) <- c(9,9) any(!rowSums(p)==45) any(!colSums(p)==45) #------------------------------------------------------------------------------------------ x <- array(1:8, dim=c(2,2,2)) x[1,1,1] #------------------------------------------------------------------------------------------ da <- data.frame(nome=c("Joao","Augusto","Julio"), id=c(1,50,712), idade=c(23,56,41), ec=c("S","C","C"), clube=c(TRUE,FALSE,TRUE)) str(da) da[1:2,] da[,c(1,4)] da[,c("nome","idade")] da[3,c("nome","idade")] da$idade #------------------------------------------------------------------------------------------ data(mtcars) str(mtcars) mtcars mtcars["Duster 360",] mtcars[c("Duster 360","Fiat X1-9"),] mtcars[mtcars[,"am"]==1,] mtcars[mtcars$am==1,] #------------------------------------------------------------------------------------------ subset(mtcars, subset=gear==4) subset(mtcars, select=c("disp","vs","carb")) subset(mtcars, subset=gear==4 & carb==4) subset(mtcars, subset=gear==4 & carb==4, select=-c(disp)) mtcars <- mtcars[order(mtcars$mpg),] mtcars <- mtcars[order(mtcars$am, mtcars$mpg),] #------------------------------------------------------------------------------------------