# NOT RUN {
library(covatest)
library(gstat)
#compute the Global Sill
C00_13<-var(rr_13[,,"PM10"]@data[[1]], na.rm = TRUE)
#estimate the spatio-temporal variogram
data(vv_13)
nonsep.index<-sepindex(vario_st=vv_13, nt=16, ns=4, globalSill=C00_13)
##methods for sepindex
#1. show
nonsep.index
#2. summary
summary(nonsep.index)
#3. boxplot
boxplot(nonsep.index, ylab="Non-separability ratio")
#4. [ extract
nonsep.index[1:8, ] #selection of the first 8 rows
nonsep.index[1:8, 1:2] #selection of the first 2 columns
# }
Run the code above in your browser using DataLab