<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:10pt"><div><SPAN></SPAN></div>
<DIV></DIV>
<DIV> </DIV>
<DIV style="RIGHT: auto" align=left><B style="RIGHT: auto">Boa noite pessoal,</B></DIV>
<DIV style="RIGHT: auto" align=left><B style="RIGHT: auto"></B> </DIV>
<DIV style="RIGHT: auto" align=left><B style="RIGHT: auto"> Estava tentanto usar um objeto SpatialPolygonsDataFrame contido em um arquivo shapefile dentro do pacote spatstat,<BR>bom fiz segundo o exemplo do material Handling shapefiles in the spatstat package do Baddeley, mas não consegui plotar o objeto owin <VAR id=yui-ie-cursor></VAR>criado, fiz:</B></DIV>
<DIV style="RIGHT: auto" align=left><STRONG></STRONG> </DIV>
<DIV style="RIGHT: auto" align=left><B style="RIGHT: auto">require(maptools)<BR>require(spatstat)<BR>x <- readShapeSpatial("mtaremanne92.shp")<BR>class(x)<BR>[1] "SpatialPolygonsDataFrame"<BR>attr(,"package")<BR>[1] "sp"<BR>cregions <- slot(x, "polygons")<BR>cregions <- lapply(cregions, function(x) {SpatialPolygons(list(x))})<BR>cwindows <- lapply(cregions, as.owin)<BR>Checking 1 polygons...1.<BR>done.<BR>Checking 3 polygons...1, 2, 3.<BR>done.<BR>Checking for cross-intersection between 3 polygons...1, 2.<BR>done.<BR>plot(cwindows)<BR>Erro em xy.coords(x, y, xlabel, ylabel, log) : <BR> 'x' is a list, but does not have components 'x' and 'y'</B></DIV>
<DIV style="RIGHT: auto" align=left> </DIV>
<DIV style="RIGHT: auto" align=left><B style="RIGHT: auto">Alguem que já tenha utilizado shapfiles dentro do spatstat saberia me dar um help,<BR>Obrigado,<BR></DIV></B><B style="RIGHT: auto"></B>
<DIV style="RIGHT: auto" align=center><B style="RIGHT: auto"></B> </DIV>
<DIV style="RIGHT: auto" align=center><B style="RIGHT: auto"></B> </DIV>
<DIV style="RIGHT: auto" align=center><B style="RIGHT: auto">Alexandre dos Santos<BR></B>Engenheiro Florestal, MSc.<BR>Universidade Federal de Lavras <BR>Departamento de Entomologia <BR>Laboratório de Entomologia Florestal <BR>Caixa Postal 3037 <BR>37200-000 - Lavras/MG<BR>Fone: +55 (35) 3829-5122<BR></DIV></div></body></html>