## Not run: ------------------------------------
#
# # Generate some fake reflectance data
# fakedat <- data.frame(wl= c(300:700), refl1 = rnorm(401), refl2 = rnorm(401))
# head(fakedat)
#
# # Determine if is rspec object
# is.rspec(fakedat)
#
# # Convert to rspec object
# fakedat2 <- as.rspec(fakedat)
# is.rspec(fakedat2)
# head(fakedat2)
## ---------------------------------------------
Run the code above in your browser using DataLab