# NOT RUN {
# Loading example data
data(australia)
spectra(australia) <- sr_no ~ ... ~ 350:2500
# Modifying spectra
m <- mutate(australia, nir = log1p(1/nir))
plot(m)
# Modifying and creating attributes
m <- mutate(
australia,
sqrt_carbon = sqrt(carbon),
foo = clay + ph,
nir = log1p(1/nir)
)
plot(m)
# }
Run the code above in your browser using DataLab