# NOT RUN {
set.seed(0)
requireNamespace("Matrix")
## generate (meaningless) counts
c1 <- stats::rpois(5e3, 1)
c2 <- stats::rpois(5e3, 2)
m <- t(
rbind(
matrix(c1, nrow = 20),
matrix(c2, nrow = 20)
)
)
## construct an expression matrix m
colnames(m) <- paste0('cell', 1:ncol(m))
rownames(m) <- paste0('gene', 1:nrow(m))
m <- log(m/colSums(m)*1e4 + 1)
m <- methods::as(m, 'dgCMatrix')
## impute
# }
# NOT RUN {
m_imputed <- rescue::sampleImputation(
expression_matrix = m,
k_neighbors = 10
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab