##load example data
data(ExampleData.CW_OSL_Curve, envir = environment())
##create RLum.Data.Curve object from this example
curve <-
set_RLum(
class = "RLum.Data.Curve",
recordType = "OSL",
data = as.matrix(ExampleData.CW_OSL_Curve)
)
##plot data without and with smoothing
plot_RLum(curve)
plot_RLum(smooth_RLum(curve))
Run the code above in your browser using DataLab