mat2 <- matrix(1, nrow=200, ncol=40)
mat2[sample.int(prod(dim(mat2)), nrow(mat2), replace=FALSE)] <- NA
grp2 <- as.factor(sample.int(n=8, size=ncol(mat2), replace=TRUE))
table(grp2)
## overal number of NAs per row
rowSums(is.na(mat2))
## number of NAs per row and group
head(rowGrpNA(mat2, grp2))
head(rowGrpNA(mat2, grp2, mode="simple"))
head(rowGrpNA(mat2, grp2, mode="complete"))
## mimick output from testing from package wrProteo
dat1 <- list(isNA =mat2, setup=list(grp=grp2))
head(rowGrpNA(dat1, mode="simple"))
head(rowGrpNA(dat1, mode="complete"))
head(rowGrpNA(dat1, mode="ratioCollapse"))
Run the code above in your browser using DataLab