x <- y <- matrix( 0, 50, 50)
x[ sample(1:50,10), sample(1:50,10)] <- rexp( 100, 0.25)
y[ sample(1:50,20), sample(1:50,20)] <- rexp( 400)
hold <- hoods2dPrep("y", "x", thresholds=c(0.1, 0.5), levels=c(1, 3, 20))
look <- hoods2d( hold, which.methods=c("multi.event", "fss"))
hoods2dPlot( look$multi.event$hk, args=hold, main="Hanssen Kuipers Score (Multi-Event Cont. Table)")
data(geom001)
data(geom000)
data(ICPg240Locs)
hold <- hoods2dPrep( "geom001", "geom000", thresholds=c(0.01,50.01), levels=c(1, 3, 5, 17, 33, 65), loc=ICPg240Locs, units="in/100")
look <- hoods2d(hold, verbose=TRUE)
hoods2dPlot(look$pragmatic$bss, args=hold)
Run the code above in your browser using DataLab