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 Próxima revisão Ambos lados da revisão seguinte | ||
disciplinas:ce223:comandos2008 [2008/03/14 00:00] paulojus |
disciplinas:ce223:comandos2008 [2008/03/17 16:51] ehlers |
||
---|---|---|---|
Linha 302: | Linha 302: | ||
</code> | </code> | ||
+ | ==== Semana 4 ==== | ||
+ | === 17/03/2008 === | ||
+ | <code R> | ||
+ | freqs = scan(file='http://leg.ufpr.br/~ehlers/CE223/fumo.dat') | ||
+ | |||
+ | array(freqs, dim=c(3,2,3)) | ||
+ | |||
+ | nomes = list(c('PR','SC','RS'), c('M','F'), c('nao fuma','fuma pouco','fuma muito')) | ||
+ | |||
+ | hf = array(freqs, dim=c(3,2,3), dimnames=nomes) | ||
+ | |||
+ | hf | ||
+ | |||
+ | m1 <- matrix(1:12, ncol = 3) | ||
+ | m1 | ||
+ | |||
+ | dimnames(m1) | ||
+ | |||
+ | dimnames(m1) <- list(c("L1", "L2", "L3", "L4"), c("C1", "C2", "C3")) | ||
+ | |||
+ | m1 | ||
+ | |||
+ | m2 <- cbind(1:5, 6:10) | ||
+ | m2 | ||
+ | |||
+ | m3 <- cbind(1:5, 6) | ||
+ | m3 | ||
+ | |||
+ | margin.table(m1, margin = 1) | ||
+ | |||
+ | apply(m1, 1, sum) | ||
+ | |||
+ | rowSums(m1) | ||
+ | |||
+ | margin.table(m1, margin = 2) | ||
+ | |||
+ | apply(m1, 2, sum) | ||
+ | |||
+ | colSums(m1) | ||
+ | |||
+ | #operacoes com matrizes | ||
+ | |||
+ | m4 <- matrix(1:6, nc = 3) | ||
+ | m5 <- matrix(10 * (1:6), nc = 3) | ||
+ | m4 | ||
+ | |||
+ | m5 | ||
+ | |||
+ | m4 + m5 | ||
+ | |||
+ | m4 * m5 | ||
+ | |||
+ | m5 - m4 | ||
+ | |||
+ | m5/m4 | ||
+ | |||
+ | m4 %*% m5 | ||
+ | |||
+ | t(m4) | ||
+ | |||
+ | m6 = t(m4)%*% m5 | ||
+ | |||
+ | solve(m6) | ||
+ | |||
+ | m6[3,3]=20 | ||
+ | |||
+ | solve(m6) | ||
+ | |||
+ | </code> |