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 Ambos lados da revisão seguinte | ||
|
ridiculas [2011/07/04 16:52] walmes [section 2] |
ridiculas [2011/07/05 14:13] walmes [section 2] |
||
|---|---|---|---|
| Linha 7: | Linha 7: | ||
| ---- | ---- | ||
| + | |||
| + | ==== Como fazer a justaposição de vários data.frames ==== | ||
| + | |||
| + | Temporariamente sem descrição.\\ | ||
| + | palavras-chave: #merge, #Reduce. | ||
| + | |||
| + | <code R> | ||
| + | #------------------------------------------------------------------------------------------ | ||
| + | # por Walmes | ||
| + | #------------------------------------------------------------------------------------------ | ||
| + | |||
| + | id <- 1:30 # número único que identifica os registros | ||
| + | n <- 20 # número de registros por data.frame | ||
| + | |||
| + | a1 <- data.frame(id=sample(id, n), v1=rnorm(n)) # resposta 1 | ||
| + | a2 <- data.frame(id=sample(id, n), v2=rpois(n,10)) # resposta 2 | ||
| + | a3 <- data.frame(id=sample(id, n), v3=runif(n)) # resposta 3 | ||
| + | |||
| + | merge(a1, a2, by="id") # justapõe 2 data.frames de cada vez | ||
| + | |||
| + | a0 <- list(a1, a2, a3) # cria uma lista com todos os data.frames | ||
| + | |||
| + | |||
| + | Reduce(function(x, y) merge(x, y, by="id"), a0, accumulate=FALSE) # justapõe todos | ||
| + | # font: http://rwiki.sciviews.org/doku.php?id=tips:data-frames:merge | ||
| + | |||
| + | #------------------------------------------------------------------------------------------ | ||
| + | </code> | ||
| + | |||
| + | ---- | ||
| + | |||
| ==== Gráfico de valores observados e curva de valores preditos para modelo linear generalizado ==== | ==== Gráfico de valores observados e curva de valores preditos para modelo linear generalizado ==== | ||
