This is a test for my drmdel package. To run it you have to install it from CRAN in advance.
# Load the package first.
library(drmdel)
#Try the main function drmdel for density ratio modelling of multiple samples.
example(drmdel, package = "drmdel")