<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)"><!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><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";}
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";}
p.yiv1183686482msoacetate, li.yiv1183686482msoacetate, div.yiv1183686482msoacetate
{mso-style-name:yiv1183686482msoacetate;
mso-margin-top-alt:auto;
margin-right:0in;
mso-margin-bottom-alt:auto;
margin-left:0in;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
p.yiv1183686482msonormal, li.yiv1183686482msonormal, div.yiv1183686482msonormal
{mso-style-name:yiv1183686482msonormal;
mso-margin-top-alt:auto;
margin-right:0in;
mso-margin-bottom-alt:auto;
margin-left:0in;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
p.yiv1183686482msochpdefault, li.yiv1183686482msochpdefault, div.yiv1183686482msochpdefault
{mso-style-name:yiv1183686482msochpdefault;
mso-margin-top-alt:auto;
margin-right:0in;
mso-margin-bottom-alt:auto;
margin-left:0in;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
span.yiv1183686482msohyperlink
{mso-style-name:yiv1183686482msohyperlink;}
span.yiv1183686482msohyperlinkfollowed
{mso-style-name:yiv1183686482msohyperlinkfollowed;}
span.yiv1183686482estilodeemail17
{mso-style-name:yiv1183686482estilodeemail17;}
span.yiv1183686482estilodeemail18
{mso-style-name:yiv1183686482estilodeemail18;}
span.yiv1183686482textodebalochar
{mso-style-name:yiv1183686482textodebalochar;}
p.yiv1183686482msonormal1, li.yiv1183686482msonormal1, div.yiv1183686482msonormal1
{mso-style-name:yiv1183686482msonormal1;
margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";
color:black;}
span.yiv1183686482msohyperlink1
{mso-style-name:yiv1183686482msohyperlink1;
color:blue;
text-decoration:underline;}
span.yiv1183686482msohyperlinkfollowed1
{mso-style-name:yiv1183686482msohyperlinkfollowed1;
color:purple;
text-decoration:underline;}
p.yiv1183686482msoacetate1, li.yiv1183686482msoacetate1, div.yiv1183686482msoacetate1
{mso-style-name:yiv1183686482msoacetate1;
margin:0in;
margin-bottom:.0001pt;
font-size:8.0pt;
font-family:"Arial","sans-serif";
color:black;}
span.yiv1183686482estilodeemail171
{mso-style-name:yiv1183686482estilodeemail171;
font-family:"Times New Roman","serif";
color:windowtext;}
span.yiv1183686482estilodeemail181
{mso-style-name:yiv1183686482estilodeemail181;
font-family:"Times New Roman","serif";
color:windowtext;}
span.yiv1183686482textodebalochar1
{mso-style-name:yiv1183686482textodebalochar1;
font-family:"Arial","sans-serif";
color:black;}
p.yiv1183686482msochpdefault1, li.yiv1183686482msochpdefault1, div.yiv1183686482msochpdefault1
{mso-style-name:yiv1183686482msochpdefault1;
mso-margin-top-alt:auto;
margin-right:0in;
mso-margin-bottom-alt:auto;
margin-left:0in;
font-size:10.0pt;
font-family:"Times New Roman","serif";}
span.EstiloDeEmail33
{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";}
.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 lang=EN-US link=blue vlink=purple><div class=WordSection1><p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt'>Essa programação eu tirei daqui:<o:p></o:p></span></p><p class=MsoNormal><a href="http://www.jstatsoft.org/v19/c01/paper"><span lang=PT-BR>http://www.jstatsoft.org/v19/c01/paper</span></a><span lang=PT-BR style='font-size:11.0pt'><o:p></o:p></span></p><p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt'><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"'>De:</span></b><span lang=PT-BR style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'> r-br-bounces@listas.c3sl.ufpr.br [mailto:r-br-bounces@listas.c3sl.ufpr.br] <b>Em nome de </b>Alexandro (Yahoo)<br><b>Enviada em:</b> Friday, March 02, 2012 9:26 PM<br><b>Para:</b> r-br@listas.c3sl.ufpr.br<br><b>Assunto:</b> Re: [R-br] RES: RES: Rosa dos Ventos<o:p></o:p></span></p></div></div><p class=MsoNormal><o:p> </o:p></p><div><div><p class=MsoNormal style='background:white'><span style='color:black'>O exemplo funcionou perfeitamente! A Rosa dos Ventos ficou demais!<o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='color:black'>É interessante fazer isto para mapas do Brasil!<o:p></o:p></span></p></div><div><blockquote style='border:none;border-left:solid #1010FF 1.5pt;padding:0in 0in 0in 4.0pt;margin-left:3.75pt;margin-top:3.75pt;margin-bottom:5.0pt'><p class=MsoNormal style='background:white'><span style='color:black'><o:p> </o:p></span></p><div><div><div><div class=MsoNormal align=center style='text-align:center;background:white'><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:black'><hr size=1 width="100%" align=center></span></div><p class=MsoNormal style='background:white'><b><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:black'>De:</span></b><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:black'> Pedro Henrique Melo Albuquerque <pedro.melo.albuquerque@gmail.com><br><b>Para:</b> r-br@listas.c3sl.ufpr.br <br><b>Enviadas:</b> Sexta-feira, 2 de Março de 2012 20:49<br><b>Assunto:</b> [R-br] RES: RES: Rosa dos Ventos</span><span style='color:black'><o:p></o:p></span></p></div><p class=MsoNormal style='background:white'><span style='color:black'><br><br><o:p></o:p></span></p><div id=yiv1183686482><div><div><div><p class=MsoNormal style='background:white'><span lang=PT-BR style='font-size:11.0pt'>Mauro,</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span lang=PT-BR style='font-size:11.0pt'>Instale o pacote spdep e tente novamente.</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span lang=PT-BR style='font-size:11.0pt'>Caso queira fazer de maneira direta você pode baixar o shapefile nesse link: <a href="http://geodacenter.org/downloads/data-files/columbus.zip" target="_blank">http://geodacenter.org/downloads/data-files/columbus.zip</a></span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span lang=PT-BR style='font-size:11.0pt'> </span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span lang=PT-BR style='font-size:11.0pt'> </span><span style='color:black'><o:p></o:p></span></p></div><div><div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0in 0in 0in'><div><p class=MsoNormal style='background:white'><b><span lang=PT-BR style='font-size:10.0pt;font-family:"Arial","sans-serif"'>De:</span></b><span lang=PT-BR style='font-size:10.0pt;font-family:"Arial","sans-serif"'> 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</span><span style='color:black'><o:p></o:p></span></p></div></div></div><div><p class=MsoNormal style='background:white'><span style='color:black'> <o:p></o:p></span></p></div><div><div><p class=MsoNormal style='background:white'><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:black'>Eu tentei rodar este exemplo e não consegui! Já deu erro no terceiro comando:</span><span style='color:black'><o:p></o:p></span></p></div></div><div><div><p class=MsoNormal style='background:white'><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:black'>columbus <- readShapePoly(system.file("etc/shapes/columbus.shp", package="spdep")[1])<br>Erro em getinfo.shape(filen) : Error opening SHP file</span><span style='color:black'><o:p></o:p></span></p></div></div><div><div><p class=MsoNormal style='background:white'><span style='color:black'> <o:p></o:p></span></p></div></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><div><p class=MsoNormal style='background:white'><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:black'> </span><span style='color:black'><o:p></o:p></span></p></div></div><div><p class=MsoNormal style='background:white'><span style='color:black'>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></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'>Jodavid,</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'>Segue um exemplo:</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'>require(maptools)</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'>require(classInt)</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'>columbus <- readShapePoly(system.file("etc/shapes/columbus.shp", package="spdep")[1])</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'>mypal <- c("wheat1", "red3")</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'>f5 <- classIntervals(columbus$CRIME, n=5, style="fisher")</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'>f5Colours <- findColours(f5, mypal)</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'>plot(columbus, col=f5Colours,border ="black", axes = TRUE)</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'>title(main="Criminalidade em Columbus.",xlab="Longitude",ylab="Latitude")</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'>RosaDosVentos <- function(loc,size,bearing=0,cols,cex=1,...)</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'>{</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'> if(missing(loc)) stop("loc is missing")</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'> if(missing(size)) stop("size is missing")</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'> if(missing(cols)) cols <- rep(c("white","black"),8)</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'> radii <- rep(size/c(1,4,2,4),4)</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'> x <- radii[(0:15)+1]*cos((0:15)*pi/8+bearing)+loc[1]</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'> y <- radii[(0:15)+1]*sin((0:15)*pi/8+bearing)+loc[2]</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'> for (i in 1:15)</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'>{</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'> x1 <- c(x[i],x[i+1],loc[1])</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'> y1 <- c(y[i],y[i+1],loc[2])</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'> polygon(x1,y1,col=cols[i])</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'> }</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'> polygon(c(x[16],x[1],loc[1]),c(y[16],y[1],loc[2]),col=cols[16])</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'> b <- c("L","N","O","S")</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'> for (i in 0:3) text((size+par("cxy")[1])*cos(bearing+i*pi/2)+loc[1],</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'> (size+par("cxy")[2])*sin(bearing+i*pi/2)+loc[2],b[i+1],cex=cex)</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'>}</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='font-size:11.0pt;color:black'>RosaDosVentos (c(5,13),0.4)</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span lang=PT-BR style='font-size:11.0pt;color:black'>Por favor, informe se funcionou.</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span lang=PT-BR style='font-size:11.0pt;color:black'>Grande abraço.</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span lang=PT-BR style='font-size:11.0pt;color:black'>Pedro</span><span style='color:black'><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><b><span lang=PT-BR style='font-size:10.0pt;font-family:"Arial","sans-serif";color:black'>De:</span></b><span lang=PT-BR style='font-size:10.0pt;font-family:"Arial","sans-serif";color:black'> <a href="mailto:r-br-bounces@listas.c3sl.ufpr.br" target="_blank">r-br-bounces@listas.c3sl.ufpr.br</a> [<a href="mailto:r-br-bounces@listas.c3sl.ufpr.br" target="_blank">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" target="_blank">r-br@listas.c3sl.ufpr.br</a><br><b>Assunto:</b> Re: [R-br] Rosa dos Ventos</span><span style='color:black'><o:p></o:p></span></p></div><div><div><p class=MsoNormal style='background:white'><span style='color:black'>Olá Pedro, Eu estou até entendendo o seu código.<o:p></o:p></span></p></div><div><div><p class=MsoNormal style='background:white'><span style='color:black'>Mas ainda não consegui colocar a Rosa dos Ventos.<o:p></o:p></span></p></div></div><div><div><p class=MsoNormal style='background:white'><span style='color:black'>O problema está, em como fazer ela aparecer na plotagem.<o:p></o:p></span></p></div></div><div><div><p class=MsoNormal style='background:white'><span style='color:black'>se ela vai como legenda...<o:p></o:p></span></p></div></div><div><div><p class=MsoNormal style='background:white'><span style='color:black'>se você puder me enviar algum exemplo dela funcionando agradeceria bastante.<o:p></o:p></span></p></div></div><div><div><p class=MsoNormal style='background:white'><span style='color:black'>abraço,<o:p></o:p></span></p></div></div><div><div><div><p class=MsoNormal style='background:white'><span style='color:black'>Em 27 de fevereiro de 2012 14:01, Jodavid Ferreira <<a href="mailto:jodavid.arts@gmail.com" target="_blank">jodavid.arts@gmail.com</a>> escreveu:<o:p></o:p></span></p></div><div><div><p class=MsoNormal style='background:white'><span style='color:black'>Olá Pedro,<o:p></o:p></span></p></div><div><div><p class=MsoNormal style='background:white'><span style='color:black'>Rodei seu código,ok. Mas não estou conseguindo visualizar a Rosa.<o:p></o:p></span></p></div></div><div><div><p class=MsoNormal style='background:white'><span style='color:black'>Não estou conseguindo coloca-la no mapa, ou até mesmo, plotá-la.<o:p></o:p></span></p></div><div><div><p class=MsoNormal style='background:white'><span style='color:black'><br clear=all><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='color:black'>-- <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></span></p></div></div></div></div></div><div><p class=MsoNormal style='background:white'><span style='color:black'><br><br clear=all><o:p></o:p></span></p></div><div><p class=MsoNormal style='background:white'><span style='color:black'>-- <o:p></o:p></span></p></div><div><div><p class=MsoNormal style='background:white'><span style='color:black'>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></span></p></div></div></div></div><div><p class=MsoNormal style='background:white'><span style='color:black'><br> <o:p></o:p></span></p></div></blockquote></div></div></div><p class=MsoNormal style='margin-bottom:12.0pt;background:white'><span style='color:black'><br>_______________________________________________<br>R-br mailing list<br><a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<o:p></o:p></span></p></div></div></blockquote></div></div></div></body></html>