Diferenças

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

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