100 samples x 25000 genes You can predict perfectly when you are allowed to use explanatory variables as many as sample size. n <- 10 m <- 10 p <- sample(0:1,n,replace=TRUE) g <- matrix(sample(0:1,n*m,replace=TRUE),n,m) p g lm.out <- lm(p~…