# NOT RUN {
sun.spct[sun.spct[["w.length"]] > 400, ]
subset(sun.spct, w.length > 400)
tmp.spct <- sun.spct
tmp.spct[tmp.spct[["s.e.irrad"]] < 1e-5 , "s.e.irrad"] <- 0
e2q(tmp.spct[ , c("w.length", "s.e.irrad")]) # restore data consistency!
# }
Run the code above in your browser using DataLab