if (FALSE) {
## Example: RLum.Results ----
# load example data
data("ExampleData.DeValues")
# apply the MAM-3 age model and save results
mam <- calc_MinDose(ExampleData.DeValues$CA1, sigmab = 0.2)
# create the HTML report
report_RLum(object = mam, file = "~/CA1_MAM.Rmd",
timestamp = FALSE,
title = "MAM-3 for sample CA1")
# when creating a report the input file is automatically saved to a
# .Rds file (see saveRDS()).
mam_report <- readRDS("~/CA1_MAM.Rds")
all.equal(mam, mam_report)
## Example: Temporary file & Viewer/Browser ----
# (a)
# Specifying a filename is not necessarily required. If no filename is provided,
# the report is rendered in a temporary file. If you use the RStudio IDE, the
# temporary report is shown in the interactive Viewer pane.
report_RLum(object = mam)
# (b)
# Additionally, you can view the HTML report in your system's default web browser.
report_RLum(object = mam, launch.browser = TRUE)
## Example: RLum.Analysis ----
data("ExampleData.RLum.Analysis")
# create the HTML report (note that specifying a file
# extension is not necessary)
report_RLum(object = IRSAR.RF.Data, file = "~/IRSAR_RF")
## Example: RLum.Data.Curve ----
data.curve <- get_RLum(IRSAR.RF.Data)[[1]]
# create the HTML report
report_RLum(object = data.curve, file = "~/Data_Curve")
## Example: Any other object ----
x <- list(x = 1:10,
y = runif(10, -5, 5),
z = data.frame(a = LETTERS[1:20], b = dnorm(0:9)),
NA)
report_RLum(object = x, file = "~/arbitray_list")
}
Run the code above in your browser using DataLab