# \donttest{
library("SPOT")
set.seed(1) # seed
k <- 30 # sample number
x <- matrix( cbind(runif(k)*10, runif(k)*10), k, 2) # create data
y <- funSphere(x) # generate random test data
fit <- buildLM(x,y) # create a model
result <- spot(x=NULL, funSphere, c(-5, -5), c(5, 5))
spotPlot(plotType="data", x, y, type="filled.contour")
spotPlot(plotType="model", object=fit, type="contour")
spotPlot(plotType="fun", f=function(x){rowSums(x^2)},
lower=c(-10,0), upper=c(15,10), type="filled.contour")
spotPlot(plotType = "parallel", object=fit)
spotPlot(plotType = "sensitivity", object=result)
# }
Run the code above in your browser using DataLab