Não foi possível enviar o arquivo. Será algum problema com as permissões?
Diferenças

Diferenças

Aqui você vê as diferenças entre duas revisões dessa página.

Link para esta página de comparações

Ambos lados da revisão anterior Revisão anterior
Próxima revisão
Revisão anterior
software:art:curso:scriptleitura [2007/12/12 00:26]
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 18: 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 82: 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 134: 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 203: 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 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"​
  

QR Code
QR Code software:art:curso:scriptleitura (generated for current page)