getNormalized(sun.spct)
str(getNormalization(sun.spct))
norm_sun.spct <- normalize(sun.spct)
is_normalized(norm_sun.spct)
getNormalized(norm_sun.spct)
str(getNormalization(norm_sun.spct))
str(getNormalization(e2q(norm_sun.spct)))
norm_gel.spct <- normalize(yellow_gel.spct)
is_normalized(norm_gel.spct)
getNormalized(norm_gel.spct)
str(getNormalization(norm_gel.spct))
getNormalization(T2Afr(norm_gel.spct))
getNormalization(any2A(norm_gel.spct))
norm_sun_evening.mspct <- normalize(sun_evening.mspct[1:3])
str(is_normalized(norm_sun_evening.mspct))
str(getNormalized(norm_sun_evening.mspct))
str(getNormalization(norm_sun_evening.mspct))
Run the code above in your browser using DataLab