data(toydata)
seu <- toydata$seu
pos <- toydata$pos
adjm <- ProFAST::AddAdj(as.matrix(pos), radius.upper = 200)
seu <- add.gene.embedding(
seu = seu,
adjm = adjm,
reduction.name = "caesar",
assay = "RNA"
)
print(seu)
Run the code above in your browser using DataLab