testImage<-MassImage('dummy')
image(testImage)
library(tofsimsData)
data(tofsimsData)
image(testImage)
library(tofsimsData)
data(tofsimsData)
testImage<-PCAnalysis(testImage,3)
image(analysis(testImage, 1), comp = 1)
Run the code above in your browser using DataLab