#This toy example
library(ADAPTS)
fullLM22 <- ADAPTS::LM22[1:30, 1:4]
smallLM22 <- fullLM22[1:25,]
spillover <- buildSpilloverMat(refExpr=smallLM22, geneExpr=fullLM22)
cellEst <- estCellPercent.spillOver(spillExpr=spillover, refExpr=smallLM22, geneExpr=fullLM22)
Run the code above in your browser using DataLab