R Under development (unstable) (2024-09-02 r87090 ucrt) -- "Unsuffered Consequences" Copyright (C) 2024 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > library("matrixStats") > > fcns <- list( + rowVarDiffs = list(rowVarDiffs, colVarDiffs), + rowSdDiffs = list(rowSdDiffs, colSdDiffs), + rowMadDiffs = list(rowMadDiffs, colMadDiffs), + rowIQRDiffs = list(rowIQRDiffs, colIQRDiffs) + ) > > for (fcn in names(fcns)) { + cat(sprintf("%s()...\n", fcn)) + row_fcn <- fcns[[fcn]][[1L]] + col_fcn <- fcns[[fcn]][[2L]] + + # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + # With and without some NAs + # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + for (mode in c("integer", "double")) { + for (add_na in c(FALSE, TRUE)) { + cat("add_na = ", add_na, "\n", sep = "") + + x <- matrix(1:50 + 0.1, nrow = 10L, ncol = 5L) + if (add_na) { + x[3:7, c(2, 4)] <- NA_real_ + } + cat("mode: ", mode, "\n", sep = "") + storage.mode(x) <- mode + str(x) + + # To check names attribute + dimnames <- list(letters[1:10], LETTERS[1:5]) + + # Test with and without dimnames on x + for (setDimnames in c(TRUE, FALSE)) { + if (setDimnames) dimnames(x) <- dimnames + else dimnames(x) <- NULL + # Row/column ranges + for (na.rm in c(FALSE, TRUE)) { + # Check names attribute + for (useNames in c(if (!matrixStats:::isUseNamesNADefunct()) NA, TRUE, FALSE)) { + cat("na.rm = ", na.rm, "\n", sep = "") + r1 <- row_fcn(x, na.rm = na.rm, useNames = useNames) + r2 <- col_fcn(t(x), na.rm = na.rm, useNames = useNames) + stopifnot(all.equal(r1, r2)) + } + } + } + } # for (add_na ...) + } + + + # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + # All NAs + # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + for (mode in c("integer", "double")) { + x <- matrix(NA_real_, nrow = 10L, ncol = 5L) + cat("mode: ", mode, "\n", sep = "") + storage.mode(x) <- mode + str(x) + + # Test with and without dimnames on x + for (setDimnames in c(TRUE, FALSE)) { + if (setDimnames) dimnames(x) <- dimnames + else dimnames(x) <- NULL + # Row/column ranges + for (na.rm in c(FALSE, TRUE)) { + # Check names attribute + for (useNames in c(if (!matrixStats:::isUseNamesNADefunct()) NA, TRUE, FALSE)) { + cat("na.rm = ", na.rm, "\n", sep = "") + r1 <- row_fcn(x, na.rm = na.rm, useNames = useNames) + r2 <- col_fcn(t(x), na.rm = na.rm, useNames = useNames) + stopifnot(all.equal(r1, r2)) + } + } + } + } + + + # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + # A 1x1 matrix + # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + x <- matrix(0, nrow = 1L, ncol = 1L) + dimnames <- list("a", "A") + # Test with and without dimnames on x + for (setDimnames in c(TRUE, FALSE)) { + if (setDimnames) dimnames(x) <- dimnames + else dimnames(x) <- NULL + # Row/column ranges + for (na.rm in c(FALSE, TRUE)) { + # Check names attribute + for (useNames in c(if (!matrixStats:::isUseNamesNADefunct()) NA, TRUE, FALSE)) { + cat("na.rm = ", na.rm, "\n", sep = "") + r1 <- row_fcn(x, na.rm = na.rm, useNames = useNames) + r2 <- col_fcn(t(x), na.rm = na.rm, useNames = useNames) + stopifnot(all.equal(r1, r2)) + } + } + } + + cat(sprintf("%s()...DONE\n", fcn)) + } # for (fcn ...) rowVarDiffs()... add_na = FALSE mode: integer int [1:10, 1:5] 1 2 3 4 5 6 7 8 9 10 ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE add_na = TRUE mode: integer int [1:10, 1:5] 1 2 3 4 5 6 7 8 9 10 ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE add_na = FALSE mode: double num [1:10, 1:5] 1.1 2.1 3.1 4.1 5.1 6.1 7.1 8.1 9.1 10.1 ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE add_na = TRUE mode: double num [1:10, 1:5] 1.1 2.1 3.1 4.1 5.1 6.1 7.1 8.1 9.1 10.1 ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE mode: integer int [1:10, 1:5] NA NA NA NA NA NA NA NA NA NA ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE mode: double num [1:10, 1:5] NA NA NA NA NA NA NA NA NA NA ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE rowVarDiffs()...DONE rowSdDiffs()... add_na = FALSE mode: integer int [1:10, 1:5] 1 2 3 4 5 6 7 8 9 10 ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE add_na = TRUE mode: integer int [1:10, 1:5] 1 2 3 4 5 6 7 8 9 10 ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE add_na = FALSE mode: double num [1:10, 1:5] 1.1 2.1 3.1 4.1 5.1 6.1 7.1 8.1 9.1 10.1 ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE add_na = TRUE mode: double num [1:10, 1:5] 1.1 2.1 3.1 4.1 5.1 6.1 7.1 8.1 9.1 10.1 ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE mode: integer int [1:10, 1:5] NA NA NA NA NA NA NA NA NA NA ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE mode: double num [1:10, 1:5] NA NA NA NA NA NA NA NA NA NA ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE rowSdDiffs()...DONE rowMadDiffs()... add_na = FALSE mode: integer int [1:10, 1:5] 1 2 3 4 5 6 7 8 9 10 ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE add_na = TRUE mode: integer int [1:10, 1:5] 1 2 3 4 5 6 7 8 9 10 ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE add_na = FALSE mode: double num [1:10, 1:5] 1.1 2.1 3.1 4.1 5.1 6.1 7.1 8.1 9.1 10.1 ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE add_na = TRUE mode: double num [1:10, 1:5] 1.1 2.1 3.1 4.1 5.1 6.1 7.1 8.1 9.1 10.1 ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE mode: integer int [1:10, 1:5] NA NA NA NA NA NA NA NA NA NA ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE mode: double num [1:10, 1:5] NA NA NA NA NA NA NA NA NA NA ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE rowMadDiffs()...DONE rowIQRDiffs()... add_na = FALSE mode: integer int [1:10, 1:5] 1 2 3 4 5 6 7 8 9 10 ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE add_na = TRUE mode: integer int [1:10, 1:5] 1 2 3 4 5 6 7 8 9 10 ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE add_na = FALSE mode: double num [1:10, 1:5] 1.1 2.1 3.1 4.1 5.1 6.1 7.1 8.1 9.1 10.1 ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE add_na = TRUE mode: double num [1:10, 1:5] 1.1 2.1 3.1 4.1 5.1 6.1 7.1 8.1 9.1 10.1 ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE mode: integer int [1:10, 1:5] NA NA NA NA NA NA NA NA NA NA ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE mode: double num [1:10, 1:5] NA NA NA NA NA NA NA NA NA NA ... na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE na.rm = FALSE na.rm = FALSE na.rm = TRUE na.rm = TRUE rowIQRDiffs()...DONE > > proc.time() user system elapsed 0.53 0.07 0.61