## Not run:
# data(sicalis)
# vis.sicalis <- vismodel(sicalis)
# tcs.sicalis <- colspace(vis.sicalis, space = 'tcs')
#
# # Subset all 'crown' patches (C in file names)
# head(subset(sicalis, "C"))
# subset(vis.sicalis, "C")
# subset(tcs.sicalis, "C")[, 1:5]
# ## End(Not run)
Run the code above in your browser using DataLab