# NOT RUN {
library(covatest)
data(rr_13)
data(vv_13)
#compute the globalSill
C00_13 <- var(rr_13[, ,"PM10"]@data[[1]], na.rm = TRUE)
nonsepind <- sepindex(nt = 16, ns = 4, vario_st = vv_13, globalSill = C00_13)
# }
Run the code above in your browser using DataLab