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/17 16:35] ehlers |
disciplinas:ce223:comandos2008 [2008/03/17 16:51] ehlers |
||
---|---|---|---|
Linha 304: | Linha 304: | ||
==== Semana 4 ==== | ==== Semana 4 ==== | ||
=== 17/03/2008 === | === 17/03/2008 === | ||
- | Formas alternativa de entrada de dados. | ||
<code R> | <code R> | ||
freqs = scan(file='http://leg.ufpr.br/~ehlers/CE223/fumo.dat') | freqs = scan(file='http://leg.ufpr.br/~ehlers/CE223/fumo.dat') | ||
Linha 315: | Linha 314: | ||
hf | 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> | </code> |