<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><html>
<head>
<meta name="GENERATOR" content="IncrediMail 1.0">

<!--IncrdiXMLRemarkStart>
<IncrdiX-Info>
<X-FID>DE8A4701-8BF4-4BE2-8CE4-2C940BAD9FF2</X-FID>
<X-FVER></X-FVER>
<X-FIT></X-FIT>
<X-FCOL></X-FCOL>
<X-FCAT></X-FCAT>
<X-FDIS></X-FDIS>
<X-BG>8EDB5CC6-1B85-4E4A-B63D-EFF4BB416ECE</X-BG>
<X-BGT>repeat</X-BGT>
<X-BGC>#fff7ef</X-BGC>
<X-BGPX>left</X-BGPX>
<X-BGPY>0px</X-BGPY>
<X-ASN>612CC2B0-37C9-11D4-BA36-0050DAC68030</X-ASN>
<X-ASNF>0</X-ASNF>
<X-ASH>612CC2B0-37C9-11D4-BA36-0050DAC68030</X-ASH>
<X-ASHF>1</X-ASHF>
<X-AN>ANIM3D00-NONE-0000-0000-000000000000</X-AN>
<X-ANF>0</X-ANF>
<X-AP>ANIM3D00-NONE-0000-0000-000000000000</X-AP>
<X-APF>1</X-APF>
<X-AD>7E485C40-4138-11D4-BA3D-0050DAC68030</X-AD>
<X-ADF>0</X-ADF>
<X-AUTO>X-ASN,X-ASH,X-AN,X-AP,X-AD</X-AUTO>
<X-CNT>;</X-CNT>
</IncrdiX-Info>
<IncrdiXMLRemarkEnd-->
</head>
<BODY style="BACKGROUND-POSITION: left 0px; BACKGROUND-REPEAT: repeat; FONT-FAMILY: Verdana; FONT-SIZE: 12pt; MARGIN: 0px 10px 10px" vLink=#039ba3 aLink=#039ba3 link=#039ba3 bgColor=#fff7ef background=cid:8EDB5CC6-1B85-4E4A-B63D-EFF4BB416ECE scroll ="yes" X-ADF ="0" X-AD ="7E485C40-4138-11D4-BA3D-0050DAC68030" X-APF="1" X-AP="ANIM3D00-NONE-0000-0000-000000000000" X-ANF="0" X-AN="ANIM3D00-NONE-0000-0000-000000000000" X-ASHF="1" X-ASH="612CC2B0-37C9-11D4-BA36-0050DAC68030" X-ASNF="0" X-ASN="612CC2B0-37C9-11D4-BA36-0050DAC68030" X-FVER="2.0" X-FID="DE8A4701-8BF4-4BE2-8CE4-2C940BAD9FF2" SIGCOLOR="0" X-FIT="Letter" X-FCOL="Week Days" X-FCAT="Week Days" X-FDIS="Hot Thursday" ORGYPOS="0"><TABLE id=INCREDIMAINTABLE cellSpacing=0 cellPadding=2 width="95%" border=0>
<TBODY>
<TR>
<TD id=INCREDIHEADER width="100%">
      <TABLE style="MARGIN: 3px; WIDTH: 100%" width="100%" 
        >
<TBODY>
<TR>
<TD>
            <P align=left><IMG align=baseline alt="" border=0 hspace=0 id=INCREDISETASATTACH src="cid:9CB087A0-B996-4758-B4D5-ED50DE9A17C1" ></P></TD></TR></TBODY></TABLE></TD></TR>
<TR>

<TD id=INCREDITEXTREGION width="100%" style="CURSOR: auto; FONT-SIZE: 12pt; PADDING-BOTTOM: 0px; PADDING-LEFT: 7px; PADDING-RIGHT: 7px; PADDING-TOP: 0px" 
    vAlign=top>
      <DIV>&nbsp;</DIV>
      <DIV>Hi once again,</DIV>
      <DIV>Now&nbsp;i have been trying to run the R changed example from 
      Maptools package manual, and errors occur underlined bellow. It is really 
      troublesome....</DIV>
      <DIV>Please assist,</DIV>
      <DIV>Orlando.</DIV>
      <DIV>---------------------------------------------------</DIV>
      <DIV>shp &lt;- try(library(shapefiles))&nbsp; <BR><U>Error in 
      library(maptools) : There is no package called 'shapefiles'<BR></U>&gt; if 
      (class(shp) != "try-error") {<BR>+ ShapeDir &lt;- system.file("shapes", 
      package="maptools")[1]<BR>+ try1 &lt;- read.shapefile(paste(ShapeDir, 
      "shapes", sep="/"))<BR>+ shppolys &lt;- shape2poly(try1, 
      as.character(try1$dbf$dbf$NEIGNO))<BR>+ plotpolys(shppolys)<BR>+ 
      title(main="Polygons for&nbsp;Vermani from shapefiles package")<BR>+ 
      }<BR>&gt; <BR>&gt; try2 &lt;- 
      read.shape(system.file("shapes/Vermani.shp",<BR>+ 
      package="maptools/man")[1])<BR><U>Error: couldn't find function 
      "read.shape"<BR></U>&gt; mappolys &lt;- Map2poly(try2, 
      as.character(try2$att.data$NEIGNO))<BR><U>Error: couldn't find function 
      "Map2poly"<BR></U>&gt; plotpolys(mappolys)<BR><U>Error: couldn't find 
      function "plotpolys"<BR></U>&gt; title(main="Polygons 
      for&nbsp;Vermani&nbsp;from maptools package")<BR>Error in title(main = 
      "Polygons for&nbsp;Vermani from maptools package") : 
      <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; plot.new has not been 
      called yet<BR>&gt; if (class(shp) != "try-error") {<BR>+ 
      plotpolys(shppolys)<BR>+ plotpolys(mappolys, add=TRUE, border="red", 
      lty="dotted")<BR>+ title(main="Polygons for&nbsp;Vermani&nbsp;overplotted 
      from both packages")<BR>+ }</DIV>
      <DIV>------------------------------------------------------<BR></DIV></TD></TR>
<TR>
<TD id=INCREDIFOOTER width="100%">
<TABLE cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<TR>
<TD vAlign=bottom>
<TABLE>
<TBODY>
<TR>
<TD width="100%"></TD>
<TD id=INCREDISOUND vAlign=bottom align=middle></TD>
<TD id=INCREDIANIM vAlign=bottom align=middle></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=bottom width="100%">
            <TABLE style="MARGIN: 3px; WIDTH: 100%" width="100%" 
            >
<TBODY>
<TR>
<TD>
                  <P align=center><IMG align=baseline alt="" border=0 hspace=0 id=INCREDISETASATTACH src="cid:D85E0417-AA3C-47E4-B1F8-97888F697926" ></P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><SPAN 
id=IncrediStamp><SPAN dir=ltr><FONT face="Arial, Helvetica, sans-serif" 
size=2>____________________________________________________<BR><FONT 
face="Comic Sans MS" size=2><A 
href="http://www.incredimail.com/redir.asp?ad_id=309&amp;lang=9"><IMG 
align=baseline alt="" border=0 hspace=0 
src="cid:4ECD843C-9EDF-40C3-8418-0DC1F83995F1"></A>&nbsp; <I>IncrediMail</I> - 
<B>Email has finally evolved</B> - </FONT><A 
href="http://www.incredimail.com/redir.asp?ad_id=309&amp;lang=9"><FONT 
face="Times New Roman" size=3><B><U>Click 
Here</U></B></FONT></A></SPAN></SPAN></FONT></BODY></html>