inst/unitTests/Gamma_yes_no.R

D <- matrix(rnorm(1000*100), 1000, 100)
colnames(D) <- sample(seq_len(5), 100, replace = TRUE)
Gamma <- nempi::getGamma(D)
result <- nempi(D, Gamma = Gamma)
result2 <- nempi(D)
checkEquals(result$Gamma, result2$Gamma, checkNames = TRUE)
cbg-ethz/nempi documentation built on Nov. 9, 2023, 3:46 p.m.