# NOT RUN {
set.seed(2019)
datT6 <- matrix(round(rnorm(300)+3,1),ncol=6,dimnames=list(paste("li",1:50,sep=""),
letters[19:24]))
datL <- list(abund=datT6,quant=datT6,annot=matrix(nrow=nrow(datT6),ncol=2))
datDelta2 <- removeSampleInList(datL,remSam=2)
# }
Run the code above in your browser using DataLab