xiim <- as.im(heather$coarse, value = TRUE,
na.replace = FALSE)
gblargs = list(boxwidths = seq(1, 10, by = 1), estimators = c("GBLemp", "GBLcc.pickaH"))
covarargs = list(estimators = "all")
cencovarargs = list(estimators = "pickaH")
paircorrargs = list(estimators = "pickaH")
returnrotmean = TRUE
secondests <- secondorderprops(xiim,
gblargs = gblargs,
covarargs = covarargs,
cencovarargs = cencovarargs,
paircorrargs = paircorrargs,
returnrotmean = FALSE)
Run the code above in your browser using DataLab