VIS <- waveband(c(380, 760)) # nanometres
trim_waveband(VIS, c(400, 700))
trim_waveband(VIS, c(NA, 700))
trim_waveband(VIS, c(400, NA))
trim_waveband(VIS, low.limit = 400)
trim_waveband(VIS, high.limit = 700)
trim_waveband(VIS, c(400, 700), trunc.labels = c(">", "<"))
trim_waveband(VIS, c(400, 700), trunc.labels = "!")
Run the code above in your browser using DataLab