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" | ||
