<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;"><DIV id=yiv837861950>
<BLOCKQUOTE style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: rgb(16,16,255) 2px solid">
<DIV> </DIV>
<DIV>Hi all</DIV>
<DIV> </DIV>
<DIV>Please help and correct me, to predict <SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'">Z(S</SPAN><FONT face="Times New Roman"><SPAN style="FONT-SIZE: 8pt; FONT-FAMILY: CMR8">0</SPAN><SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'">) at (0.5,0.5) given <SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'">Z(S</SPAN><SPAN style="FONT-SIZE: 8pt; FONT-FAMILY: CMR8">1</SPAN><SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'">) = 3 at (0,0), <SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'"><SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'">Z(S</SPAN><SPAN style="FONT-SIZE: 8pt; FONT-FAMILY: CMR8">2</SPAN><SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'">) = 5 at(0,1), <SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'">Z(S</SPAN><SPAN style="FONT-SIZE: 8pt; FONT-FAMILY: CMR8">3</SPAN><SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'">) = 6(1,0) and
<SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'">Z(S</SPAN><SPAN style="FONT-SIZE: 8pt; FONT-FAMILY: CMR8">4</SPAN><SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'">) = 4(1,1). Let </DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">γ (h)=h^2 h<1
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> = 1 h>=1 using geo.
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">
<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)))
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">
<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?</SPAN></SPAN></SPAN></SPAN></SPAN></SPAN></FONT></DIV></BLOCKQUOTE></DIV></td></tr></table><br>