Last updated on 2024-04-18 12:52:50 CEST.
Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
---|---|---|---|---|---|---|
r-devel-linux-x86_64-debian-clang | 0.2.3 | 4.58 | 212.77 | 217.35 | OK | |
r-devel-linux-x86_64-debian-gcc | 0.2.3 | 4.53 | 154.14 | 158.67 | OK | |
r-devel-linux-x86_64-fedora-clang | 0.2.3 | 262.03 | OK | |||
r-devel-linux-x86_64-fedora-gcc | 0.2.3 | 252.63 | OK | |||
r-prerel-macos-arm64 | 0.2.3 | 65.00 | OK | |||
r-prerel-windows-x86_64 | 0.2.3 | 5.00 | 156.00 | 161.00 | OK | |
r-patched-linux-x86_64 | 0.2.3 | 5.46 | 203.99 | 209.45 | OK | |
r-release-linux-x86_64 | 0.2.3 | 5.73 | 200.91 | 206.64 | OK | |
r-release-macos-arm64 | 0.2.3 | 78.00 | OK | |||
r-release-macos-x86_64 | 0.2.3 | 244.00 | OK | |||
r-release-windows-x86_64 | 0.2.3 | 5.00 | 216.00 | 221.00 | OK | |
r-oldrel-macos-arm64 | 0.2.3 | 59.00 | ERROR | |||
r-oldrel-windows-x86_64 | 0.2.3 | 8.00 | 246.00 | 254.00 | ERROR |
Version: 0.2.3
Check: tests
Result: ERROR
Running ‘andersondarling_behaviour.r’ [0s/0s]
Running ‘andersondarling_correctness.r’ [0s/1s]
Running ‘andersondarling_errors.r’ [0s/0s]
Running ‘andersondarling_warnings.r’ [0s/0s]
Running ‘bartlett_behaviour.r’ [0s/0s]
Running ‘bartlett_correctness.r’ [1s/1s]
Running ‘bartlett_errors.r’ [0s/0s]
Running ‘bartlett_warnings.r’ [0s/0s]
Running ‘brownforsythe_behaviour.r’ [0s/0s]
Running ‘brownforsythe_correctness.r’ [3s/4s]
Running ‘brownforsythe_errors.r’ [0s/0s]
Running ‘brownforsythe_warnings.r’ [0s/0s]
Running ‘cor_pearson_behaviour.r’ [0s/0s]
Running ‘cor_pearson_correctness.r’ [0s/0s]
Running ‘cor_pearson_errors.r’ [0s/0s]
Running ‘cor_pearson_warnings.r’ [0s/0s]
Running ‘cosinor_behaviour.r’ [0s/0s]
Running ‘cosinor_correctness.r’ [7s/9s]
Running ‘cosinor_errors.r’ [0s/0s]
Running ‘cosinor_warnings.r’ [0s/0s]
Running ‘f_var_behaviour.r’ [0s/0s]
Running ‘f_var_correctness.r’ [0s/0s]
Running ‘f_var_errors.r’ [0s/0s]
Running ‘f_var_warnings.r’ [0s/0s]
Running ‘flignerkilleen_behaviour.r’ [0s/0s]
Running ‘flignerkilleen_correctness.r’ [1s/1s]
Running ‘flignerkilleen_errors.r’ [0s/0s]
Running ‘flignerkilleen_warnings.r’ [0s/0s]
Running ‘jarquebera_behaviour.r’ [0s/0s]
Running ‘jarquebera_correctness.r’ [0s/0s]
Running ‘jarquebera_errors.r’ [0s/0s]
Running ‘jarquebera_warnings.r’ [0s/0s]
Running ‘kolmogorovsmirnov_twosample_behavioiur.r’ [0s/0s]
Running ‘kolmogorovsmirnov_twosample_correctness.r’ [13s/14s]
Running the tests in ‘tests/kolmogorovsmirnov_twosample_correctness.r’ failed.
Last 13 lines of output:
> x[2,1] <- -Inf
> y[3,1] <- Inf
> y[4,1] <- -Inf
> x[5,1:2] <- c(Inf, -Inf)
> y[6,1:2] <- c(Inf, -Inf)
> x[7,1] <- Inf; y[7,1] <- Inf
> x[8,1] <- Inf; y[8,1] <- -Inf
> x[9,1] <- -Inf; y[9,1] <- -Inf
> x[10,] <- Inf; y[10,] <- -Inf
> # exact
> res1 <- base_kolmogorovsmirnov_twosample(x, y)
Error in if (TIES[k]) diag <- diag * (q > d) :
missing value where TRUE/FALSE needed
Calls: base_kolmogorovsmirnov_twosample ... ks.test.default -> psmirnov -> sapply -> lapply -> FUN
Execution halted
Flavor: r-oldrel-macos-arm64
Version: 0.2.3
Check: tests
Result: ERROR
Running 'andersondarling_behaviour.r' [0s]
Running 'andersondarling_correctness.r' [2s]
Running 'andersondarling_errors.r' [0s]
Running 'andersondarling_warnings.r' [0s]
Running 'bartlett_behaviour.r' [0s]
Running 'bartlett_correctness.r' [5s]
Running 'bartlett_errors.r' [0s]
Running 'bartlett_warnings.r' [0s]
Running 'brownforsythe_behaviour.r' [0s]
Running 'brownforsythe_correctness.r' [14s]
Running 'brownforsythe_errors.r' [0s]
Running 'brownforsythe_warnings.r' [0s]
Running 'cor_pearson_behaviour.r' [0s]
Running 'cor_pearson_correctness.r' [1s]
Running 'cor_pearson_errors.r' [0s]
Running 'cor_pearson_warnings.r' [0s]
Running 'cosinor_behaviour.r' [0s]
Running 'cosinor_correctness.r' [29s]
Running 'cosinor_errors.r' [0s]
Running 'cosinor_warnings.r' [0s]
Running 'f_var_behaviour.r' [1s]
Running 'f_var_correctness.r' [1s]
Running 'f_var_errors.r' [0s]
Running 'f_var_warnings.r' [0s]
Running 'flignerkilleen_behaviour.r' [0s]
Running 'flignerkilleen_correctness.r' [4s]
Running 'flignerkilleen_errors.r' [0s]
Running 'flignerkilleen_warnings.r' [0s]
Running 'jarquebera_behaviour.r' [0s]
Running 'jarquebera_correctness.r' [1s]
Running 'jarquebera_errors.r' [0s]
Running 'jarquebera_warnings.r' [0s]
Running 'kolmogorovsmirnov_twosample_behavioiur.r' [1s]
Running 'kolmogorovsmirnov_twosample_correctness.r' [48s]
Running 'kolmogorovsmirnov_twosample_errors.r' [0s]
Running 'kolmogorovsmirnov_twosample_warnings.r' [0s]
Running 'kruskalwallis_behaviour.r' [0s]
Running 'kruskalwallis_correctness.r' [4s]
Running 'kruskalwallis_errors.r' [0s]
Running 'kruskalwallis_warnings.r' [0s]
Running 'levene_behaviour.r' [0s]
Running 'levene_correctness.r' [13s]
Running 'levene_errors.r' [0s]
Running 'levene_warnings.r' [1s]
Running 'oneway_equalvar_behaviour.r' [0s]
Running 'oneway_equalvar_correctness.r' [7s]
Running 'oneway_equalvar_errors.r' [0s]
Running 'oneway_equalvar_warnings.r' [0s]
Running 'oneway_welch_behaviour.r' [0s]
Running 'oneway_welch_correctness.r' [4s]
Running 'oneway_welch_errors.r' [0s]
Running 'oneway_welch_warnings.r' [0s]
Running 't_equalvar_behaviour.r' [1s]
Running 't_equalvar_correctness.r' [2s]
Running 't_equalvar_errors.r' [0s]
Running 't_equalvar_warnings.r' [0s]
Running 't_onesample_behaviour.r' [0s]
Running 't_onesample_correctness.r' [1s]
Running 't_onesample_errors.r' [0s]
Running 't_onesample_warnings.r' [0s]
Running 't_paired_behaviour.r' [1s]
Running 't_paired_correctness.r' [2s]
Running 't_paired_errors.r' [0s]
Running 't_paired_warnings.r' [0s]
Running 't_welch_behaviour.r' [1s]
Running 't_welch_correctness.r' [2s]
Running 't_welch_errors.r' [1s]
Running 't_welch_warnings.r' [0s]
Running 'waerden_behaviour.r' [0s]
Running 'waerden_correctness.r' [4s]
Running 'waerden_errors.r' [0s]
Running 'waerden_warnings.r' [0s]
Running 'wilcoxon_onesample_behaviour.r' [0s]
Running 'wilcoxon_onesample_correctness.r' [4s]
Running 'wilcoxon_onesample_errors.r' [0s]
Running 'wilcoxon_onesample_warnings.r' [0s]
Running 'wilcoxon_paired_behaviour.r' [0s]
Running 'wilcoxon_paired_correctness.r' [4s]
Running 'wilcoxon_paired_errors.r' [0s]
Running 'wilcoxon_paired_warnings.r' [0s]
Running 'wilcoxon_twosample_behaviour.r' [0s]
Running 'wilcoxon_twosample_correctness.r' [15s]
Running 'wilcoxon_twosample_errors.r' [0s]
Running 'wilcoxon_twosample_warnings.r' [0s]
Running the tests in 'tests/kolmogorovsmirnov_twosample_correctness.r' failed.
Complete output:
> library(matrixTests)
>
> #--- functions -----------------------------------------------------------------
>
> base_kolmogorovsmirnov_twosample <- function(mat1, mat2, alternative="t", exact=NA) {
+ if(is.vector(mat1)) mat1 <- matrix(mat1, nrow=1)
+ if(is.vector(mat2)) mat2 <- matrix(mat2, nrow=1)
+ if(length(alternative)==1) alternative <- rep(alternative, nrow(mat1))
+ if(length(exact)==1) exact <- rep(exact, nrow(mat1))
+
+ nx <- ny <- nxy <- stat <- p <- numeric(nrow(mat1))
+ al <- character(nrow(mat1))
+ ext <- logical(nrow(mat1))
+ for(i in 1:nrow(mat1)) {
+ ex <- if(is.na(exact[i])) NULL else exact[i]
+
+ res <- ks.test(mat1[i,], mat2[i,], alternative=alternative[i], exact=ex)
+
+ nx[i] <- sum(!is.na(mat1[i,]))
+ ny[i] <- sum(!is.na(mat2[i,]))
+ nxy[i] <- nx[i] + ny[i]
+ stat[i] <- res$statistic
+ p[i] <- res$p.value
+ al[i] <- c(l="less", g="greater", t="two.sided")[alternative[i]]
+ ext[i] <- res$exact
+ }
+
+ data.frame(obs.x=nx, obs.y=ny, obs.tot=nxy, statistic=stat, pvalue=p,
+ alternative=al, exact=ext, stringsAsFactors=FALSE
+ )
+ }
>
>
> #--- montecarlo ----------------------------------------------------------------
>
> # 25 samples per group (not exceeding exact cutoff)
> x <- matrix(rnorm(2000), ncol=2)
> y <- matrix(rnorm(4000), ncol=4)
> alts <- sample(c("t", "g", "l"), nrow(x), replace=TRUE)
> ext <- sample(c(TRUE, FALSE, NA), nrow(x), replace=TRUE)
> res1 <- base_kolmogorovsmirnov_twosample(x, y, alts, exact=ext)
> res2 <- row_kolmogorovsmirnov_twosample(x, y, alts, exact=ext)
> stopifnot(all.equal(res1, res2))
>
> # 25 samples per group with ties (not exceeding exact cutoff)
> x <- matrix(round(runif(25000, -15, 15)), ncol=25)
> y <- matrix(round(runif(25000, -15, 15)), ncol=25)
> alts <- sample(c("t", "g", "l"), nrow(x), replace=TRUE)
> ext <- sample(c(TRUE, FALSE, NA), nrow(x), replace=TRUE)
> res1 <- suppressWarnings(base_kolmogorovsmirnov_twosample(x, y, alts, exact=ext))
> res2 <- suppressWarnings(row_kolmogorovsmirnov_twosample(x, y, alts, exact=ext))
> stopifnot(all.equal(res1, res2))
>
> # 2 samples in one group and 101 in another (not exceeding exact cutoff)
> x <- matrix(rnorm(2000), ncol=2)
> y <- matrix(rnorm(101000), ncol=101)
> alts <- sample(c("t", "g", "l"), nrow(x), replace=TRUE)
> ext <- sample(c(TRUE, FALSE, NA), nrow(x), replace=TRUE)
> res1 <- base_kolmogorovsmirnov_twosample(x, y, alts, exact=ext)
> res2 <- row_kolmogorovsmirnov_twosample(x, y, alts, exact=ext)
> stopifnot(all.equal(res1, res2))
>
> # 101 samples per group (exceeding exact cutoff)
> x <- matrix(rnorm(101000), ncol=101)
> y <- matrix(rnorm(101000), ncol=101)
> alts <- sample(c("t", "g", "l"), nrow(x), replace=TRUE)
> ext <- sample(c(TRUE, FALSE, NA), nrow(x), replace=TRUE)
> res1 <- base_kolmogorovsmirnov_twosample(x, y, alts, exact=ext)
> res2 <- row_kolmogorovsmirnov_twosample(x, y, alts, exact=ext)
> stopifnot(all.equal(res1, res2))
>
> # 101 samples per group with ties (exceeding exact cutoff)
> x <- matrix(round(runif(101000, -15, 15)), ncol=101)
> y <- matrix(round(runif(101000, -15, 15)), ncol=101)
> alts <- sample(c("t", "g", "l"), nrow(x), replace=TRUE)
> ext <- sample(c(TRUE, FALSE, NA), nrow(x), replace=TRUE)
> res1 <- suppressWarnings(base_kolmogorovsmirnov_twosample(x, y, alts, exact=ext))
> res2 <- suppressWarnings(row_kolmogorovsmirnov_twosample(x, y, alts, exact=ext))
> stopifnot(all.equal(res1, res2))
>
> # 2 samples in one group and 5001 in another (exceeding exact cutoff)
> x <- matrix(rnorm(2000), ncol=2)
> y <- matrix(rnorm(5001000), ncol=5001)
> alts <- sample(c("t", "g", "l"), nrow(x), replace=TRUE)
> ext <- sample(c(TRUE, FALSE, NA), nrow(x), replace=TRUE)
> res1 <- base_kolmogorovsmirnov_twosample(x, y, alts, exact=ext)
> res2 <- row_kolmogorovsmirnov_twosample(x, y, alts, exact=ext)
> stopifnot(all.equal(res1, res2))
>
>
> #--- extreme numbers -----------------------------------------------------------
>
> # big numbers
> pars <- expand.grid(c("t","g","l"), c(TRUE, FALSE), stringsAsFactors=FALSE)
> x <- c(100000000000004, 100000000000002, 100000000000003, 100000000000000)
> x <- matrix(x, nrow=nrow(pars), ncol=length(x), byrow=TRUE)
> y <- c(100000000000005, 100000000000006, 100000000000009)
> y <- matrix(y, nrow=nrow(pars), ncol=length(y), byrow=TRUE)
> res1 <- base_kolmogorovsmirnov_twosample(x, y, alternative=pars[,1], exact=pars[,2])
> res2 <- row_kolmogorovsmirnov_twosample(x, y, alternative=pars[,1], exact=pars[,2])
> stopifnot(all.equal(res1, res2))
>
> # small numbers
> pars <- expand.grid(c("t","g","l"), c(TRUE, FALSE), stringsAsFactors=FALSE)
> x <- c(0.00000000000004, 0.00000000000002, 0.00000000000003, 0.00000000000001)
> x <- matrix(x, nrow=nrow(pars), ncol=length(x), byrow=TRUE)
> y <- c(0.00000000000005, 0.00000000000006, 0.00000000000000)
> y <- matrix(y, nrow=nrow(pars), ncol=length(y), byrow=TRUE)
> res1 <- base_kolmogorovsmirnov_twosample(x, y, alternative=pars[,1], exact=pars[,2])
> res2 <- row_kolmogorovsmirnov_twosample(x, y, alternative=pars[,1], exact=pars[,2])
> stopifnot(all.equal(res1, res2))
>
> # NOTE: turned-off because of precission errors on architectures without long doubles
> # large sample (only non-exact, because of computation time)
> # pars <- expand.grid(c("t","g","l"), stringsAsFactors=FALSE)
> # x <- rnorm(10^6)
> # y <- rnorm(10^6)
> # x <- matrix(x, nrow=nrow(pars), ncol=length(x), byrow=TRUE)
> # y <- matrix(y, nrow=nrow(pars), ncol=length(y), byrow=TRUE)
> # res1 <- base_kolmogorovsmirnov_twosample(x, y, alternative=pars[,1])
> # res2 <- row_kolmogorovsmirnov_twosample(x, y, alternative=pars[,1])
> # stopifnot(all.equal(res1, res2))
>
> # x and y have infinities (exact)
> x <- matrix(rnorm(100), ncol=10)
> y <- matrix(rnorm(100), ncol=10)
> x[1,1] <- Inf
> x[2,1] <- -Inf
> y[3,1] <- Inf
> y[4,1] <- -Inf
> x[5,1:2] <- c(Inf, -Inf)
> y[6,1:2] <- c(Inf, -Inf)
> x[7,1] <- Inf; y[7,1] <- Inf
> x[8,1] <- Inf; y[8,1] <- -Inf
> x[9,1] <- -Inf; y[9,1] <- -Inf
> x[10,] <- Inf; y[10,] <- -Inf
> # exact
> res1 <- base_kolmogorovsmirnov_twosample(x, y)
Error in if (TIES[k]) diag <- diag * (q > d) :
missing value where TRUE/FALSE needed
Calls: base_kolmogorovsmirnov_twosample ... ks.test.default -> psmirnov -> sapply -> lapply -> FUN
Execution halted
Flavor: r-oldrel-windows-x86_64