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 | |||
|
software:art:curso:scriptleitura [2007/12/12 13:20] paulojus |
software:art:curso:scriptleitura [2007/12/12 15:11] (atual) paulojus |
||
|---|---|---|---|
| Linha 212: | Linha 212: | ||
| addPolygons(l2, aed.poly) | addPolygons(l2, aed.poly) | ||
| createTable(l2, "tbairros") | createTable(l2, "tbairros") | ||
| + | l2 | ||
| + | |||
| + | tbbairro <- openTable(lb, "bairro2000_rec") | ||
| + | tbbairro | ||
| + | tbb2 <- getData(tbbairro) | ||
| + | head(tbb2) | ||
| + | |||
| + | importTable(l2, "tbairros", id="ID_BAIRROS", data=tbb2) | ||
| l2 | l2 | ||
| + | </code> | ||
| + | |||
| + | Associando uma tabela de mídia com filmes ''.avi'' com a evolução dos ovos segundo um modelo GAM (generalised additive model). O código para os filmes não está mostrado aqui e está disponível na pagina do saudavel no wiki. | ||
| + | <code R> | ||
| + | medbairro <- createTable(l2, type="media") | ||
| + | url <- data.frame(object_id = c(94, 54, 55, 39, 40, 73, 51, 52), | ||
| + | media_names=paste("http://www.leg.est.ufpr.br/~paulojus/aviDengue/gam", | ||
| + | c("BT", "CFP", "CFP", "DI", "DI", "EM", "MCP", "MCP"), ".avi", sep=""), stringsAsFactors=F) | ||
| + | url | ||
| + | |||
| + | url1 <- data.frame(object_id=1:94, | ||
| + | media_names=as.character("http://www.leg.est.ufpr.br/~paulojus/aviDengue/nulo.html"), stringsAsFactors=F) | ||
| + | url1$media_names[url$object_id] <- url$media_names | ||
| + | url1 | ||
| + | dim(url1) | ||
| + | |||
| + | addRows(medbairro, url1) | ||
| </code> | </code> | ||
