Nothing
scRNAtools_Geneexp <-
function(example,types,num){
exp_1<-cbind(example[,1],example[,which(example[1,]%in%types)])
edgeR::cpm
n<-ncol(exp_1)
data1<-exp_1[,-1]
zcpm<-cpm(data1)
keep<-rowSums(zcpm>1)>=((n-1)*num)###delete the genes which expression is 0 in half of all the samples.
zset<-exp_1[keep,]
return(zset)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.