gsi.DS example reduced to comply with CRAN

R/gmSimulation.R

@@ -249,7 +249,7 @@ 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=100, dim_TI=c(10,7),  dim_SimGrid=c(10,7), 
+#' res = gsi.DS(n=5, f=0.75, t=0.05, n_realiz=30, 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)