my.spct <- sun.spct
setMultipleWl(my.spct) # default is to search x, here my.spct
getMultipleWl(my.spct)
multiple_wl(my.spct) <- 1L # must be a valid value or NULL!
multiple_wl(my.spct)
multiple_wl(my.spct) <- NULL # must be a valid value or NULL!
multiple_wl(my.spct)
Run the code above in your browser using DataLab