# NOT RUN {
gfData <- GenesFilter(yan[1:100,1:15])
TrueLabel <- ann$cell_type1[1:15]
res_SimS <- SimS(gfData)
C <- EstClusters(res_SimS$drData,res_SimS$S)
res_BDSM <- BDSM(res_SimS$S,C)
TrajectoryAnalysis(gfData,res_SimS$drData,res_SimS$S,res_BDSM$y,
TrueLabel=TrueLabel,startPoint=1)
# }
Run the code above in your browser using DataLab