#This data file is the same as that obtained using:
if (FALSE) {
data(sen90)
sen90oc <- oc(sen90,dims=2,polarity=c(7,2))
}
data(sen90oc)
summary(sen90oc)
plot.OCcoords(sen90oc)
Run the code above in your browser using DataLab