# NOT RUN {
input <- system.file("extdata", "mat.csv", package="TooManyCellsR")
inputLabels <- system.file("extdata", "labels.csv", package="TooManyCellsR")
df = read.csv(input, row.names = 1, header = TRUE)
mat = Matrix::Matrix(as.matrix(df), sparse = TRUE)
labelsDf = read.csv(inputLabels, header = TRUE)
# Here we draw this small toy example with no filter or normalization, and
# decrease the size of the branches and increase the size of the leaf nodes.
# With non-toy real world single cell data, these options should not be
# necessary.
# }
# NOT RUN {
res = tooManyCells( mat, labels = labelsDf
, args = c( "make-tree"
, "--no-filter"
, "--normalization", "NoneNorm"
, "--draw-max-node-size", "40"
, "--draw-max-leaf-node-size", "70"
)
)
plot(res$treePlot, axes = FALSE)
res$stdout
res$nodeInfo
# }
Run the code above in your browser using DataLab