data(toydata)
seu <- toydata$seu
markers <- toydata$markers
seu <- ProFAST::pdistance(seu, reduction = "caesar")
marker.freq <- markerList2mat(list(markers))
anno_res <- CAESAR.annotation(seu, marker.freq, cal.confidence = FALSE, cal.proportions = FALSE)
seuList <- list(seu, seu)
distList <- list(anno_res$ave.dist, anno_res$ave.dist)
seuInt <- CAESAR.RUV(seuList, distList, species = "human", verbose = TRUE)
Run the code above in your browser using DataLab