<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;"><DIV>Hi all</DIV>
<DIV> </DIV>
<DIV>Please help and correct me, to predict <SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA">Z(S</SPAN><FONT face="Times New Roman"><SPAN style="FONT-SIZE: 8pt; FONT-FAMILY: CMR8; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA; mso-bidi-font-family: CMR8">0</SPAN><SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA">) at (0.5,0.5) given <SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA">Z(S</SPAN><SPAN style="FONT-SIZE: 8pt; FONT-FAMILY: CMR8; mso-fareast-font-family: 'Times New
Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA; mso-bidi-font-family: CMR8">1</SPAN><SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA">) = 3 at (0,0), <SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA"><SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA">Z(S</SPAN><SPAN style="FONT-SIZE: 8pt; FONT-FAMILY: CMR8; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA; mso-bidi-font-family: CMR8">2</SPAN><SPAN style="FONT-SIZE: 12pt; FONT-FAMILY:
'Times New Roman'; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA">) = 5 at(0,1), <SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA">Z(S</SPAN><SPAN style="FONT-SIZE: 8pt; FONT-FAMILY: CMR8; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA; mso-bidi-font-family: CMR8">3</SPAN><SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA">) = 6(1,0) and <SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language:
AR-SA">Z(S</SPAN><SPAN style="FONT-SIZE: 8pt; FONT-FAMILY: CMR8; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA; mso-bidi-font-family: CMR8">4</SPAN><SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA">) = 4(1,1). Let </DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">γ (h)=h^2 h<1</DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> = 1 h>=1 using geo. </DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> </DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">I did this: coords<-matrix(c(0,0,1,1,0,1,0,1), nrow=4, ncol=2)<BR>> data<-c(3,5,6,4)<BR>> coordata<-data.frame(coords=coords,data=data)<BR>> geo<-as.geodata(coordata)<BR>> plot(geo$coords, xlim = c(0, 1.2), ylim = c(0,1.2),<BR>+ xlab = "X-axis", ylab = "Y-axis")<BR>> locations<- matrix(c(0.5, 0.5), ncol = 2)<BR>> text(locations, as.character(0), col = "red")<BR>> polygon(x = c(0, 1, 1, 0), y = c(0, 0, 1, 1),lty = 2)<BR>> szero<- krige.conv(geo, locations=locations,<BR>+ krige=krige.control(cov.pars=c(1,1)))</DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> </DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">how do i show this points, lines and values on the gragh like it was done an erview of spatial statistics by Brian Vinyard slides 40 or something similar?.</DIV></SPAN></SPAN></SPAN></SPAN></SPAN></SPAN></FONT></td></tr></table><br>