validation.data<-data.frame(rnorm(10,mean=0.2,sd=1))
names(validation.data)<-c("validation")
validation.spdf<-validation.data
validation.data<-as.numeric(unlist(validation.data))
xy<-data.frame(x=c(0:9),y=rep(1,10))
coordinates(validation.spdf)<-xy
m<-matrix(NA,1,10)
out.ras<-raster(m,xmn=0,xmx=ncol(m),ymn=0,ymx=nrow(m))
out.ras[]<-validation.data+rnorm(ncell(out.ras),mean=0.01,sd=0.2)
valid.stats<-errorGen(out.ras,validation.spdf,validation.data,plot=TRUE,title="Validation Plot")
valid.statsRun the code above in your browser using DataLab