<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta name=Generator content="Microsoft Word 14 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";
color:black;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
p.MsoAcetate, li.MsoAcetate, div.MsoAcetate
{mso-style-priority:99;
mso-style-link:"Texto de balão Char";
margin:0in;
margin-bottom:.0001pt;
font-size:8.0pt;
font-family:"Tahoma","sans-serif";
color:black;}
span.EstiloDeEmail17
{mso-style-type:personal;
font-family:"Times New Roman","serif";
color:windowtext;}
span.EstiloDeEmail18
{mso-style-type:personal-reply;
font-family:"Times New Roman","serif";
color:windowtext;}
span.TextodebaloChar
{mso-style-name:"Texto de balão Char";
mso-style-priority:99;
mso-style-link:"Texto de balão";
font-family:"Tahoma","sans-serif";
color:black;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body bgcolor=white lang=EN-US link=blue vlink=purple><div class=WordSection1><p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt;color:windowtext'>Mauro,<o:p></o:p></span></p><p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt;color:windowtext'>Instale o pacote spdep e tente novamente.<o:p></o:p></span></p><p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt;color:windowtext'>Caso queira fazer de maneira direta você pode baixar o shapefile nesse link: <a href="http://geodacenter.org/downloads/data-files/columbus.zip">http://geodacenter.org/downloads/data-files/columbus.zip</a><o:p></o:p></span></p><p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt;color:windowtext'><o:p> </o:p></span></p><p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt;color:windowtext'><o:p> </o:p></span></p><div><div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0in 0in 0in'><p class=MsoNormal><b><span lang=PT-BR style='font-size:10.0pt;font-family:"Tahoma","sans-serif";color:windowtext'>De:</span></b><span lang=PT-BR style='font-size:10.0pt;font-family:"Tahoma","sans-serif";color:windowtext'> r-br-bounces@listas.c3sl.ufpr.br [mailto:r-br-bounces@listas.c3sl.ufpr.br] <b>Em nome de </b>Mauro Sznelwar<br><b>Enviada em:</b> Friday, March 02, 2012 8:44 PM<br><b>Para:</b> r-br@listas.c3sl.ufpr.br<br><b>Assunto:</b> Re: [R-br] RES: Rosa dos Ventos<o:p></o:p></span></p></div></div><p class=MsoNormal><o:p> </o:p></p><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Eu tentei rodar este exemplo e não consegui! Já deu erro no terceiro comando:</span><o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>columbus <- readShapePoly(system.file("etc/shapes/columbus.shp", package="spdep")[1])<br>Erro em getinfo.shape(filen) : Error opening SHP file</span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><blockquote style='border:none;border-left:solid black 1.5pt;padding:0in 0in 0in 4.0pt;margin-left:3.75pt;margin-top:5.0pt;margin-right:0in;margin-bottom:5.0pt'><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'> <o:p></o:p></span></p></div><p class=MsoNormal>Jodavid,<br>Rodei o exemplo do Pedro no meu PC e funcionou. Observe que a função "RosaDosVentos (c(5,13),0.4)" substitua o valor 5 por 6.5 que aparecera a Rosa dos ventos<br><br>Humberto<br><br><br>Em 3/2/2012 6:30 PM, Pedro Henrique Melo Albuquerque escreveu: <o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'>Jodavid,</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'>Segue um exemplo:</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'>require(maptools)</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'>require(classInt)</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'>columbus <- readShapePoly(system.file("etc/shapes/columbus.shp", package="spdep")[1])</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'>mypal <- c("wheat1", "red3")</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'>f5 <- classIntervals(columbus$CRIME, n=5, style="fisher")</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'>f5Colours <- findColours(f5, mypal)</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'>plot(columbus, col=f5Colours,border ="black", axes = TRUE)</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'>title(main="Criminalidade em Columbus.",xlab="Longitude",ylab="Latitude")</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'>RosaDosVentos <- function(loc,size,bearing=0,cols,cex=1,...)</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'>{</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'> if(missing(loc)) stop("loc is missing")</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'> if(missing(size)) stop("size is missing")</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'> if(missing(cols)) cols <- rep(c("white","black"),8)</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'> radii <- rep(size/c(1,4,2,4),4)</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'> x <- radii[(0:15)+1]*cos((0:15)*pi/8+bearing)+loc[1]</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'> y <- radii[(0:15)+1]*sin((0:15)*pi/8+bearing)+loc[2]</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'> for (i in 1:15)</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'>{</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'> x1 <- c(x[i],x[i+1],loc[1])</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'> y1 <- c(y[i],y[i+1],loc[2])</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'> polygon(x1,y1,col=cols[i])</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'> }</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'> polygon(c(x[16],x[1],loc[1]),c(y[16],y[1],loc[2]),col=cols[16])</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'> b <- c("L","N","O","S")</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'> for (i in 0:3) text((size+par("cxy")[1])*cos(bearing+i*pi/2)+loc[1],</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'> (size+par("cxy")[2])*sin(bearing+i*pi/2)+loc[2],b[i+1],cex=cex)</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'>}</span><o:p></o:p></p><p class=MsoNormal><span style='font-size:11.0pt'>RosaDosVentos (c(5,13),0.4)</span><o:p></o:p></p><p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt'>Por favor, informe se funcionou.</span><o:p></o:p></p><p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt'>Grande abraço.</span><o:p></o:p></p><p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt'>Pedro</span><o:p></o:p></p><p class=MsoNormal><b><span lang=PT-BR style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>De:</span></b><span lang=PT-BR style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'> <a href="mailto:r-br-bounces@listas.c3sl.ufpr.br">r-br-bounces@listas.c3sl.ufpr.br</a> [<a href="mailto:r-br-bounces@listas.c3sl.ufpr.br">mailto:r-br-bounces@listas.c3sl.ufpr.br</a>] <b>Em nome de </b>Jodavid Ferreira<br><b>Enviada em:</b> Friday, March 02, 2012 3:13 PM<br><b>Para:</b> <a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a><br><b>Assunto:</b> Re: [R-br] Rosa dos Ventos</span><o:p></o:p></p><div><p class=MsoNormal>Olá Pedro, Eu estou até entendendo o seu código.<o:p></o:p></p><div><p class=MsoNormal>Mas ainda não consegui colocar a Rosa dos Ventos.<o:p></o:p></p></div><div><p class=MsoNormal>O problema está, em como fazer ela aparecer na plotagem.<o:p></o:p></p></div><div><p class=MsoNormal>se ela vai como legenda...<o:p></o:p></p></div><div><p class=MsoNormal>se você puder me enviar algum exemplo dela funcionando agradeceria bastante.<o:p></o:p></p></div><div><p class=MsoNormal>abraço,<o:p></o:p></p></div><div><div><p class=MsoNormal>Em 27 de fevereiro de 2012 14:01, Jodavid Ferreira <<a href="mailto:jodavid.arts@gmail.com">jodavid.arts@gmail.com</a>> escreveu:<o:p></o:p></p><div><p class=MsoNormal>Olá Pedro,<o:p></o:p></p><div><p class=MsoNormal>Rodei seu código,ok. Mas não estou conseguindo visualizar a Rosa.<o:p></o:p></p></div><div><p class=MsoNormal>Não estou conseguindo coloca-la no mapa, ou até mesmo, plotá-la.<o:p></o:p></p><div><p class=MsoNormal><br clear=all><o:p></o:p></p><p class=MsoNormal>-- <br>Jodavid Ferreira<br>Responsável pela comissão de Comunicação do MJ da RCCPB - <a href="http://jovem.rccpb.com.br" target="_blank">http://jovem.rccpb.com.br</a><br>Responsável pela comissão de Comunicação e do Ministério Jovem do Grupo de Oração Boa Esperança - <a href="http://grupoboaesperanca.com" target="_blank">http://grupoboaesperanca.com</a><br>Bacharelando em Estatística - UFPB<br>Estagiário no Laboratório de Estatística Aplicada ao Processamento de Imagens e Geoprocessamento - <a href="http://de.ufpb.br/%7Eleapig" target="_blank">http://de.ufpb.br/~leapig</a><br><a href="http://jodavidferreira.com" target="_blank">http://jodavidferreira.com</a><o:p></o:p></p></div></div></div></div><p class=MsoNormal><br><br clear=all><o:p></o:p></p><p class=MsoNormal>-- <o:p></o:p></p><div><p class=MsoNormal>Jodavid Ferreira<br>Responsável pela comissão de Comunicação do MJ da RCCPB - <a href="http://jovem.rccpb.com.br" target="_blank">http://jovem.rccpb.com.br</a><br>Responsável pelo Ministério Jovem e de Comunicação do Grupo de Oração Boa Esperança - <a href="http://grupoboaesperanca.com" target="_blank">http://grupoboaesperanca.com</a><br>Bacharelando em Estatística - UFPB<br>Estagiário no Laboratório de Estatística Aplicada ao Processamento de Imagens e Geoprocessamento - <a href="http://de.ufpb.br/%7Eleapig" target="_blank">http://de.ufpb.br/~leapig</a><br>Site Pessoal - <a href="http://jodavidferreira.com" target="_blank">http://jodavidferreira.com</a><o:p></o:p></p></div></div></div><p class=MsoNormal><br> <o:p></o:p></p></blockquote></div></body></html>