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