Check dimensionality of design matrix
assertDesign(nsample, design)
Integer, number of samples
Design matrix
Side effect is used: the function stops if sample size does not equal ncol(matrix)
nsample <- 4
design <- matrix(1:20, ncol=5)
assertDesign(nsample, design)