Não foi possível enviar o arquivo. Será algum problema com as permissões?
Diferenças
Aqui você vê as diferenças entre duas revisões dessa página.
| Ambos lados da revisão anterior Revisão anterior Próxima revisão | Revisão anterior | ||
|
disciplinas:ce003:semana4 [2007/03/21 20:50] paulojus |
disciplinas:ce003:semana4 [2007/03/23 22:20] (atual) paulojus |
||
|---|---|---|---|
| Linha 75: | Linha 75: | ||
| apply(m,1,mean) | apply(m,1,mean) | ||
| apply(m,2,mean) | apply(m,2,mean) | ||
| + | </code> | ||
| + | |||
| + | ==== Comandos do R digitados na aula em 21/03/2007 ==== | ||
| + | |||
| + | <code R> | ||
| + | # dat <- scan() | ||
| + | #1: 58 | ||
| + | #2: 37 | ||
| + | #3: 43 | ||
| + | #4: 25 | ||
| + | #5: 39 | ||
| + | #6: 26 | ||
| + | #7: 57 | ||
| + | #8: 38 | ||
| + | #9: | ||
| + | #Read 8 items | ||
| + | dat | ||
| + | is.vector(dat) | ||
| + | is.matrix(dat) | ||
| + | is.numeric(dat) | ||
| + | is.character(dat) | ||
| + | class(dat) | ||
| + | |||
| + | datm <- matrix(dat, nc=2) | ||
| + | datm | ||
| + | |||
| + | dim(datm) | ||
| + | dimnames(datm) | ||
| + | dimnames(datm) <- list(c("Péssimo", "Regular", "Bom", "Ótimo"), c("Masc", "Fem")) | ||
| + | datm | ||
| + | dimnames(datm) | ||
| + | apply(datm,1,sum) | ||
| + | apply(datm,2,sum) | ||
| + | sum(datm[,1]) | ||
| + | sum(datm[,2]) | ||
| + | |||
| + | sc <- apply(datm,2,sum) | ||
| + | sc | ||
| + | sc[1] | ||
| + | |||
| + | #tab3 <- scan() | ||
| + | #1: 25 | ||
| + | #2: 12 | ||
| + | #3: 5 | ||
| + | #4: 13 | ||
| + | #5: 39 | ||
| + | #6: 14 | ||
| + | #7: 7 | ||
| + | #8: 20 | ||
| + | #9: 43 | ||
| + | #10: 27 | ||
| + | #11: 8 | ||
| + | #12: 11 | ||
| + | #13: 15 | ||
| + | #14: 13 | ||
| + | #15: 13 | ||
| + | #16: 5 | ||
| + | #17: 18 | ||
| + | #18: 27 | ||
| + | #19: 23 | ||
| + | #20: 8 | ||
| + | #21: 14 | ||
| + | #22: 32 | ||
| + | #23: 39 | ||
| + | #24: 12 | ||
| + | |||
| + | tab3a <- array(tab3, dim=c(4,3,2)) | ||
| + | tab3a | ||
| + | |||
| + | ## corrigindo um dado | ||
| + | tab3a[2,2,1] | ||
| + | tab3a[2,2,1] <- 15 | ||
| + | tab3a | ||
| + | dimnames(tab3a) <- list(c("Péssimo", "Regular", "Bom", "Ótimo"), c("Baixa","Média","Alta"),c("Masc", "Fem")) | ||
| + | tab3a | ||
| + | dim(tab3a) | ||
| + | |||
| + | ## quantos homens? | ||
| + | sum(tab3a[,,1]) | ||
| + | |||
| + | ## quantas mulheres? | ||
| + | sum(tab3a[,,1]) | ||
| + | |||
| + | ## ou .... | ||
| + | apply(tab3a,3,sum) | ||
| + | apply(tab3a,3,sum)[1] | ||
| + | apply(tab3a,3,sum)[2] | ||
| + | |||
| + | ## proporção de homens e de mulheres | ||
| + | apply(tab3a,3,sum)/sum(tab3a) | ||
| + | |||
| + | ## quantos de baixa renda? | ||
| + | tab3a[,1,] | ||
| + | sum(tab3a[,1,]) | ||
| + | apply(tab3a,2,sum) | ||
| + | apply(tab3a,2,sum)[1] | ||
| + | ## quantos de opinião Bom? | ||
| + | sum(tab3a[3,,]) | ||
| + | ## número de homens com bom | ||
| + | tab3a[3,,1] | ||
| + | sum(tab3a[3,,1]) | ||
| + | apply(tab3a,c(1,3), sum) | ||
| + | apply(tab3a,c(1,3), sum)[3,1] | ||
| + | ## proporção de homens com bom | ||
| + | sum(tab3a[3,,1])/sum(tab3a) | ||
| + | |||
| + | ## proporção de homens com bom ou ótimo | ||
| + | ## proporção de homens com bom ou ótimo | ||
| + | ## proporção de mulheres com bom ou ótimo | ||
| + | ## proporção de ótimo para cada faixa de renda | ||
| + | ## proporção de ótimo para cada combinaçõa de faixa de renda e sexo | ||
| + | ## proporção de cada opinião para cada combinação de faixa de renda e sexo | ||
| </code> | </code> | ||
