<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:st1="urn:schemas-microsoft-com:office:smarttags" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 11 (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]--><o:SmartTagType
namespaceuri="urn:schemas-microsoft-com:office:smarttags" name="address"/>
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="Street"/>
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="PersonName"/>
<!--[if !mso]>
<style>
st1\:*{behavior:url(#default#ieooui) }
</style>
<![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:"Palatino Linotype";
panose-1:2 4 5 2 5 5 5 3 3 4;}
@font-face
{font-family:Georgia;
panose-1:2 4 5 2 5 4 5 2 3 3;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
p.MsoPlainText, li.MsoPlainText, div.MsoPlainText
{margin:0cm;
margin-bottom:.0001pt;
font-size:10.0pt;
font-family:"Courier New";}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Palatino Linotype";
color:windowtext;
font-weight:normal;
font-style:normal;
text-decoration:none none;}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 90.0pt 72.0pt 90.0pt;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>Running the latest version of spdep ("spdep,
version 0.4-9, 2007-11-01") I find that code that previously worked no
longer does after updating R to the latest release (2.6.0). <o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>The following example illustrates:<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>> dataex<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>
long lat<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>1 151.1550 -33.88602<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>2 151.1922 -33.89780<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>3 151.1733 -33.91631<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>4 151.2042 -33.92947<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>5 151.1854 -33.87928<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>6 151.2355 -33.92529<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>7 151.1768 -33.91153<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>8 151.2352 -33.94703<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>9 151.2561 -33.93978<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>10 151.2316 -33.95854<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>> ngh.listex <-
knearneigh(cbind(dataex$long,dataex$lat), k=2, longlat = TRUE)<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>> ngh.listex<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>$nn<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [,1] [,2]<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [1,] 5 7<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [2,] 7 5<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [3,] 7 2<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [4,] 6 3<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [5,] 2 1<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [6,] 8 9<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [7,] 3 2<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [8,] 10 9<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [9,] 8 6<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>[10,] 8 9<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>$np<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>[1] 10<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>$k<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>[1] 2<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>$dimension<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>[1] 2<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>$x<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>
[,1] [,2]<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [1,] 151.1550 -33.88602<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [2,] 151.1922 -33.89780<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [3,] 151.1733 -33.91631<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [4,] 151.2042 -33.92947<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [5,] 151.1854 -33.87928<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [6,] 151.2355 -33.92529<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [7,] 151.1768 -33.91153<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [8,] 151.2352 -33.94703<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> [9,] 151.2561 -33.93978<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>[10,] 151.2316 -33.95854<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>attr(,"class")<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>[1] "knn"<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>attr(,"call")<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>knearneigh(x = cbind(dataex$long, dataex$lat), k = 2,
longlat = TRUE)<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>> nb.listex <- knn2nb(ngh.listex,sym=TRUE)<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>> nghwts.listex <-
nb2listw(nb.listex,style="U")<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>Error in UseMethod("as.double") : no
applicable method for "as.double"<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> <o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>The function nb2listw() in spdep contains statements
of the form<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'> mode(x) <- "numeric" <o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>which I assume is what is causing that function to
fail with the error message above. <o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>I think this because it seems (to me) that this is
caused by the change to the behaviour of as.numeric() in the latest R release, when
applied to vectors of mode "integer". Here is an example which illustrates
behaviour that appears odd to me:<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>> x1<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>[1] 1 2 3 4 4 4 4<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>> mode(x1)<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>[1] "numeric"<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>> as.numeric(x1)<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>Error in UseMethod("as.double") : no
applicable method for "as.double"<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>> is.numeric(x1)<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>[1] TRUE<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>I have posted separately to the R-help mailing list.<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>I don’t know if this ought to be a bug report,
sorry.<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'>Alun<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-AU
style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=EN-AU
style='font-size:10.0pt;font-family:Georgia;color:blue'>Dr <st1:PersonName
w:st="on">Alun Pope</st1:PersonName><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=EN-AU
style='font-size:10.0pt;font-family:Georgia;color:blue'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=EN-AU
style='font-size:10.0pt;font-family:Georgia;color:blue'>Research Manager<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=EN-AU
style='font-size:10.0pt;font-family:Georgia;color:blue'>Rismark International<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=EN-AU
style='font-size:10.0pt;font-family:Georgia;color:blue'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=EN-AU
style='font-size:10.0pt;font-family:Georgia;color:blue'>For more on Equity
Finance Mortgages*:</span></font><font size=2 color=blue face=Georgia><span
style='font-size:10.0pt;font-family:Georgia;color:blue'><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=EN-AU
style='font-size:10.0pt;font-family:Georgia;color:blue'>See <a
href="http://www.efm.info/" title="http://www.efm.info/">www.efm.info</a><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=EN-AU
style='font-size:10.0pt;font-family:Georgia;color:blue'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 color=blue face="Times New Roman"><span
lang=EN-AU style='font-size:12.0pt;color:blue'><img border=0 width=275
height=70 id="_x0000_i1025" src="cid:image001.gif@01C8254F.6B896670"></span></font><font
size=2 color=blue face=Georgia><span lang=EN-AU style='font-size:10.0pt;
font-family:Georgia;color:blue'><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=EN-AU
style='font-size:10.0pt;font-family:Georgia;color:blue'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=EN-AU
style='font-size:10.0pt;font-family:Georgia;color:blue'>Level 13 | <U1:STREET u2:st="on"><U1:ADDRESS u2:st="on"><st1:Street
w:st="on"><st1:address w:st="on">50 Margaret Street</U1:ADDRESS></U1:STREET></st1:address></st1:Street><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=IT
style='font-size:10.0pt;font-family:Georgia;color:blue'>Sydney | NSW 2000 |
Australia<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=IT
style='font-size:10.0pt;font-family:Georgia;color:blue'>T +61 (0)2 8243 0656<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=IT
style='font-size:10.0pt;font-family:Georgia;color:blue'>F +61 (0)2 9290 3703<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=IT
style='font-size:10.0pt;font-family:Georgia;color:blue'>M +61 (0)412 115 028<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=IT
style='font-size:10.0pt;font-family:Georgia;color:blue'>E <st1:PersonName
w:st="on">alun.pope@rismark.com.au</st1:PersonName><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=EN-AU
style='font-size:10.0pt;font-family:Georgia;color:blue'>W www.rismark.com.au</span></font><font
size=2 color=blue face=Georgia><span style='font-size:10.0pt;font-family:Georgia;
color:blue'><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=EN-AU
style='font-size:10.0pt;font-family:Georgia;color:blue'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=EN-AU
style='font-size:10.0pt;font-family:Georgia;color:blue'>*Best New Product of
the Year in the 2007 Your Mortgage Magazine Mortgage of the Year Competition.</span></font><font
size=2 color=blue face=Georgia><span style='font-size:10.0pt;font-family:Georgia;
color:blue'><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=EN-AU
style='font-size:10.0pt;font-family:Georgia;color:blue'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Georgia><span lang=EN-AU
style='font-size:10.0pt;font-family:Georgia;color:blue'>This email is strictly
confidential. If you are not the intended recipient you must not disclose or
use the <st1:PersonName w:st="on">info</st1:PersonName>rmation contained in it.
If you have received this email in error please notify us immediately by return
email and delete the document. Failure to comply with this request could invoke
severe legal penalties.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span lang=EN-AU
style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span lang=EN-AU
style='font-size:12.0pt'><o:p> </o:p></span></font></p>
</div>
</body>
</html>