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:25] 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 ** | ||
Abrindo a conexão | Abrindo a conexão | ||
<code R> | <code R> | ||
Linha 19: | Linha 21: | ||
</code> | </code> | ||
- | Abrindo o Layerdas armadilhas | + | Abrindo o //Layer// das armadilhas |
<code R> | <code R> | ||
la <- openLayer(db, "LAYER_ARMADILHAS") | la <- openLayer(db, "LAYER_ARMADILHAS") | ||
Linha 83: | Linha 85: | ||
</code> | </code> | ||
- | 2. algumas análises descritivas no R | + | ** 2. algumas análises descritivas no R ** |
Plotando dados da evolução de ovos de uma armadilha: | Plotando dados da evolução de ovos de uma armadilha: | ||
Linha 135: | Linha 137: | ||
</code> | </code> | ||
- | 3. criando um "novo" banco de dados (no caso em outro DBMS local, mas poderia ser no orginal tb) | + | ** 3. criando um "novo" banco de dados (no caso em outro DBMS local, mas poderia ser no orginal tb) ** |
conexão com o banco local | conexão com o banco local | ||
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. 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" | ||