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 | ||
|
software:art:curso:scriptleitura [2007/12/12 00:29] paulojus |
software:art:curso:scriptleitura [2007/12/12 15:11] (atual) paulojus |
||
|---|---|---|---|
| Linha 5: | Linha 5: | ||
| </code> | </code> | ||
| + | // | ||
| + | // | ||
| ** 1. conectando ao banco de origem dos dados e importando dados desejados para o R ** | ** 1. conectando ao banco de origem dos dados e importando dados desejados para o R ** | ||
| Linha 204: | Linha 206: | ||
| </code> | </code> | ||
| - | Criando vistas e temas para a TV\\ | + | Transferindo os polígonos dos bairros para o novo banco |
| - | Criar tema para visualizar os relatórios | + | <code R> |
| + | l2=createLayer(dblight,"BAIRROS", proj=proj) | ||
| + | l2 | ||
| + | addPolygons(l2, aed.poly) | ||
| + | createTable(l2, "tbairros") | ||
| + | l2 | ||
| + | |||
| + | tbbairro <- openTable(lb, "bairro2000_rec") | ||
| + | tbbairro | ||
| + | tbb2 <- getData(tbbairro) | ||
| + | head(tbb2) | ||
| + | |||
| + | importTable(l2, "tbairros", id="ID_BAIRROS", data=tbb2) | ||
| + | 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> | ||
| + | |||
| + | Criar tema/vista para visualizar os relatórios na TV e com acesso às mídias | ||
| <code R> | <code R> | ||
| th=createTheme(l1, "Coletas", table="ARMADILHAS", view="armas") | th=createTheme(l1, "Coletas", table="ARMADILHAS", view="armas") | ||
| + | th=createTheme(l2, "Bairros", table="tbairros", view="armas") | ||
| </code> | </code> | ||
| - | ** 4. inspecinando no terraView e abrindo mídias ** | + | ** 4. inspecionando no terraView e abrindo mídias ** |
| - abrir o TV | - abrir o TV | ||
| - abrir um navegador (mozilla ou outro) | - abrir um navegador (mozilla ou outro) | ||
| - dar um zoom num bairro | - dar um zoom num bairro | ||
| - | - selecionar um ponto e exibir a "media default" | + | - selecionar um **ponto (armadilha)** e exibir a "media default" |
| + | - selecionar um **bairro com armadilha** e exibir a "media default" | ||
