From edb83ae07f803c96bc6f84ffa07fb296afb98e17 Mon Sep 17 00:00:00 2001
From: Raimon Tolosana-Delgado <tolosa53@fwg206.ad.fz-rossendorf.de>
Date: Thu, 15 Jul 2021 19:11:44 +0200
Subject: [PATCH] gmGeostats 0.10-8 long tests marked with dontrun
---
R/gmSimulation.R | 4 +++-
R/uncorrelationTest.R | 2 +-
2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/R/gmSimulation.R b/R/gmSimulation.R
index a6ffa3b..a62837f 100644
--- a/R/gmSimulation.R
+++ b/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,
diff --git a/R/uncorrelationTest.R b/R/uncorrelationTest.R
index ab3ff7d..9b0ae6c 100644
--- a/R/uncorrelationTest.R
+++ b/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))
--
GitLab