<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=ISO-8859-1">
<META content="MSHTML 6.00.2900.3429" name=GENERATOR></HEAD>
<BODY text=#000000 bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Eu tentei rodar este exemplo e não consegui! Já deu
erro no terceiro comando:</FONT></DIV>
<DIV><FONT face=Arial size=2>columbus <-
readShapePoly(system.file("etc/shapes/columbus.shp",
package="spdep")[1])<BR>Erro em getinfo.shape(filen) : Error opening SHP
file<BR></FONT></DIV>
<DIV> </DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial"> </DIV>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:
<BLOCKQUOTE cite=mid:009c01ccf8bb$af8d7d40$0ea877c0$@gmail.com type="cite">
<META content="Microsoft Word 14 (filtered
medium)"
name=Generator>
<STYLE>@font-face {
font-family: Calibri;
}
@font-face {
font-family: Tahoma;
}
@page WordSection1 {size: 8.5in 11.0in; margin: 1.0in 1.0in 1.0in 1.0in; }
P.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman","serif"
}
LI.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman","serif"
}
DIV.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman","serif"
}
A:link {
COLOR: blue; TEXT-DECORATION: underline; mso-style-priority: 99
}
SPAN.MsoHyperlink {
COLOR: blue; TEXT-DECORATION: underline; mso-style-priority: 99
}
A:visited {
COLOR: purple; TEXT-DECORATION: underline; mso-style-priority: 99
}
SPAN.MsoHyperlinkFollowed {
COLOR: purple; TEXT-DECORATION: underline; mso-style-priority: 99
}
SPAN.EstiloDeEmail17 {
COLOR: windowtext; FONT-FAMILY: "Times New Roman","serif"; mso-style-type: personal-reply
}
.MsoChpDefault {
FONT-FAMILY: "Calibri","sans-serif"; mso-style-type: export-only
}
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]-->
<DIV class=WordSection1>
<P class=MsoNormal><SPAN
style="FONT-SIZE: 11pt">Jodavid,<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt">Segue um
exemplo:<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt"><O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN
style="FONT-SIZE: 11pt">require(maptools)<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN
style="FONT-SIZE: 11pt">require(classInt)<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt">columbus <-
readShapePoly(system.file("etc/shapes/columbus.shp",
package="spdep")[1])<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt">mypal <- c("wheat1",
"red3")<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt">f5 <-
classIntervals(columbus$CRIME, n=5, style="fisher")<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt">f5Colours <-
findColours(f5, mypal)<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt">plot(columbus,
col=f5Colours,border ="black", axes = TRUE)<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt">title(main="Criminalidade
em Columbus.",xlab="Longitude",ylab="Latitude")<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt"><O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt"><O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt">RosaDosVentos <-
function(loc,size,bearing=0,cols,cex=1,...)<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt">{<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt"> if(missing(loc))
stop("loc is missing")<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt"> if(missing(size))
stop("size is missing")<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt"> if(missing(cols))
cols <- rep(c("white","black"),8)<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt"> radii <-
rep(size/c(1,4,2,4),4)<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt"> x <-
radii[(0:15)+1]*cos((0:15)*pi/8+bearing)+loc[1]<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt"> y <-
radii[(0:15)+1]*sin((0:15)*pi/8+bearing)+loc[2]<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt"> for (i in
1:15)<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt">{<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt"> x1 <-
c(x[i],x[i+1],loc[1])<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt"> y1 <-
c(y[i],y[i+1],loc[2])<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt">
polygon(x1,y1,col=cols[i])<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt">
}<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt">
polygon(c(x[16],x[1],loc[1]),c(y[16],y[1],loc[2]),col=cols[16])<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt"> b <-
c("L","N","O","S")<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt"> for (i in 0:3)
text((size+par("cxy")[1])*cos(bearing+i*pi/2)+loc[1],<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt">
(size+par("cxy")[2])*sin(bearing+i*pi/2)+loc[2],b[i+1],cex=cex)<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt">}<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt">RosaDosVentos
(c(5,13),0.4)<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN style="FONT-SIZE: 11pt"><O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN lang=PT-BR style="FONT-SIZE: 11pt">Por favor,
informe se funcionou.<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN lang=PT-BR style="FONT-SIZE: 11pt">Grande
abraço.<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN lang=PT-BR
style="FONT-SIZE: 11pt">Pedro<O:P></O:P></SPAN></P>
<P class=MsoNormal><SPAN lang=PT-BR
style="FONT-SIZE: 11pt"><O:P></O:P></SPAN></P>
<P class=MsoNormal><B><SPAN lang=PT-BR
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Tahoma','sans-serif'">De:</SPAN></B><SPAN
lang=PT-BR style="FONT-SIZE: 10pt; FONT-FAMILY: 'Tahoma','sans-serif'"> <A
class=moz-txt-link-abbreviated
href="mailto:r-br-bounces@listas.c3sl.ufpr.br">r-br-bounces@listas.c3sl.ufpr.br</A>
[<A class=moz-txt-link-freetext
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 class=moz-txt-link-abbreviated
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<O:P></O:P></SPAN></P>
<P class=MsoNormal><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><O:P></O:P></P></DIV>
<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: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><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><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><O:P></O:P></P></DIV>
<DIV>
<P class=MsoNormal>abraço,<O:P></O:P></P></DIV>
<DIV>
<P class=MsoNormal><O:P></O:P></P>
<DIV>
<P class=MsoNormal>Em 27 de fevereiro de 2012 14:01, Jodavid Ferreira <<A
href="mailto:jodavid.arts@gmail.com"
moz-do-not-send="true">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><O:P></O:P></P></DIV>
<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><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>
<DIV>
<P class=MsoNormal><O:P></O:P></P></DIV>
<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
moz-do-not-send="true">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
moz-do-not-send="true">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
moz-do-not-send="true">http://de.ufpb.br/~leapig</A><BR><A
href="http://jodavidferreira.com" target=_blank
moz-do-not-send="true">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>
<DIV>
<P class=MsoNormal><O:P></O:P></P></DIV>
<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
moz-do-not-send="true">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
moz-do-not-send="true">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
moz-do-not-send="true">http://de.ufpb.br/~leapig</A><BR>Site Pessoal
- <A href="http://jodavidferreira.com" target=_blank
moz-do-not-send="true">http://jodavidferreira.com</A><O:P></O:P></P></DIV>
<P
class=MsoNormal><O:P></O:P></P></DIV></DIV></DIV><BR> <BR></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>