Get the manual classification from a tissue slide

Extract the manual classification from a tissue slide. This property should not be set manually (ironically). Instead using the cluster_manually() function. See the example below for a demonstration.

get_manual_classification(ts)

Arguments

ts	A tissue slide that has been manually classified.

Value

A manual_classification object.

Examples

pancreas_slide <- tissue_slide(pancreas)
pancreas_slide <- cluster_manually(pancreas_slide,
  fitc,
  cutoff = 4,
  transform = log10
)
get_manual_classification(pancreas_slide)
#>   [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 2 1 1 1 1 1 1 1 1 1
#>  [38] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
#>  [75] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 2 2 1 1 1 1
#>  [ reached getOption("max.print") -- omitted 66931 entries ]
#> attr(,"cutoff")
#> [1] 4
#> attr(,"transform")
#> function (x)  .Primitive("log10")
#> Levels: 1 2