# NOT RUN {
clevelandRadiationTypes <- radiationTypes(Cleveland_small)
clevelandCells <- cellNames(Cleveland_small)
RSet <- subsetTo(Cleveland_small,radiationTypes = clevelandRadiationTypes[1],
cells = clevelandCells[1])
RSet
# }
Run the code above in your browser using DataLab