## load data
data(ExampleData.DeValues, envir = environment())
ExampleData.DeValues <-
Second2Gray(values = ExampleData.DeValues, dose_rate = c(0.0438,0.0019))
## plot histogram the easiest way
plot_Histogram(ExampleData.DeValues)
## plot histogram with some more modifications
plot_Histogram(ExampleData.DeValues,
rug = TRUE,
normal_curve = TRUE,
cex.global = 0.9,
pch = 2,
colour = c("grey", "black", "blue", "green"),
summary = c("n", "mean", "sdrel"),
summary.pos = "topleft",
main = "Histogram of De-values",
mtext = "Example data set",
ylab = c(expression(paste(D[e], "distribution")),
"Error"),
xlim = c(100, 250),
ylim = c(0, 0.08, 50, 200))
Run the code above in your browser using DataLab