my.spct <- ccd.spct
sensor_properties(my.spct)
sensor_properties(my.spct) <- NULL
sensor_properties(my.spct)
sensor_properties(my.spct) <- list(model = "ccd",
type = "ABC",
supplier = "unknown")
sensor_properties(my.spct)
Run the code above in your browser using DataLab