gmGeostats 0.10-8 long tests marked with dontrun

R/gmSimulation.R

@@ -249,13 +249,15 @@ gsi.DS4CoDa <- function(n, f, t, n_realiz, nx_TI, ny_TI, nx_SimGrid, ny_SimGrid,
 #' image_cokriged(SimGrid, ivar="V1", breaks=o1$breaks, col=o1$col)
 #' image_cokriged(SimGrid, ivar="V2", breaks=o2$breaks, col=o2$col)
 #' image_cokriged(SimGrid, ivar="mask", breaks=c(-0.0001, 0.5, 1.001))
-#' res = gsi.DS(n=5, f=0.75, t=0.05, n_realiz=30, dim_TI=c(10,7),  dim_SimGrid=c(10,7), 
+#' \dontrun{
+#' res = gsi.DS(n=5, f=0.75, t=0.05, n_realiz=2, dim_TI=c(10,7),  dim_SimGrid=c(10,7), 
 #'        TI_input=as.matrix(TI_input), SimGrid_input=as.matrix(SimGrid), 
 #'        ivars_TI = c("V1", "V2"), SimGrid_mask="mask", invertMask=TRUE)
 #' image_cokriged(cbind(xy_TI, getStackElement(res,1)), ivar="V1", breaks=o1$breaks, col=o1$col)
 #' image_cokriged(cbind(xy_TI, getStackElement(res,2)), ivar="V1", breaks=o1$breaks, col=o1$col)
 #' image_cokriged(cbind(xy_TI, getStackElement(res,1)), ivar="V2", breaks=o2$breaks, col=o2$col)
 #' image_cokriged(cbind(xy_TI, getStackElement(res,2)), ivar="V2", breaks=o2$breaks, col=o2$col)
+#' }
 gsi.DS <- function(n, f, t, n_realiz, 
                    dim_TI, dim_SimGrid,  
                    TI_input, SimGrid_input,

R/uncorrelationTest.R

@@ -12,10 +12,10 @@
 #' @export
 #' @importFrom boot boot
 #' @examples
-#' \donttest{ 
 #' data("jura", package="gstat")
 #' X = jura.pred[, 1:2]
 #' Z = data.frame(compositions::ilr(jura.pred[,-(1:6)]))
+#' \dontrun{ 
 #' noSpatCorr.test(Z=Z, X=X)
 #' # now destroy the spatial structure reshuffling the coordinates:
 #' ip = sample(nrow(X))