if (FALSE) {
grid<- list( x= seq( 0,5,,100), y= seq(0,5,,100))
obj<-Exp.image.cov( grid=grid, theta=.5, setup=TRUE)
look<- sim.rf( obj)
look2 <- sim.rf( obj)
res <- CSIsamples(x=look, xhat=look2, 10, threshold=0, k=100,
width=2, z.mult=0, hit.threshold=0.25, max.csi.clust=75)
plot(res)
y <- summary(res)
plot(y)
}
if (FALSE) {
data( "UKfcst6" )
data( "UKobs6" )
data( "UKloc" )
hold <- make.SpatialVx(UKobs6, UKfcst6, thresholds=0,
loc=UKloc, map=TRUE, field.type="Rainfall", units="mm/h",
data.name = "Nimrod", obs.name = "obs 6", model.name = "fcst 6" )
res <- CSIsamples( hold, threshold = 0, k = 200, z.mult = 0.3, hit.threshold = 0.2,
max.csi.clust = 150, verbose = TRUE)
plot( res )
summary( res )
y <- summary( res )
plot( y )
}
Run the code above in your browser using DataLab