# NOT RUN {
showClass("KT.output")
#### load data of feedback and change-in-feedback indices in 88 sites across Australia
data(rain.feedback.stats)
#### spatial coordinates of the 88 sites
coord=rain.feedback.stats[,3:4]
#### map of feedback index computed from the whole data series
stat1=rain.feedback.stats[["Feedback.whole.period"]]
#### variogram analysis and kriging of feedback index
# }
# NOT RUN {
par(mfrow=c(2,2), mar=c(5.1,4.1,4.1,2.1))
kr1=krige(coordinates=coord, statistic=stat1,
grid=list(x=seq(110,155,0.25),y=seq(-45,-11,0.25),border="Australia",
proj="+proj=lcc +lat_1=-18 +lat_2=-36 +lat0=-25 +lon_0=140",degrees=TRUE),
plots=TRUE)
# }
# NOT RUN {
#### test spatial variation in feedback index and plot test output
## computer intensive stage
# }
# NOT RUN {
kt1=krige.test(krige.output=kr1,subregion=list(x=c(138,152,152,138),y=-c(40,40,33,33)),
alternative="greater", nb.rand=2000)
par(mfrow=c(1,2), mar=c(5.1,4.1,4.1,2.1))
plot(kt1,digits=list(predict=3,pvalue=3),breaks=12)
# }
Run the code above in your browser using DataLab