powered by
get_validation
get_validation(p, n, fraction = 0.1, seed = 12345)
n <- 5 p <- 4 fraction <- 0.1 Theta <- get_validation(p,n,fraction) M <- matrix(rnorm(n*p),p,n) YT <- t(M) YT[Theta$ThetaV] <- NA Y <- t(YT) Theta
Run the code above in your browser using DataLab