# R script to generate datasets included in the package:
# Uncomment the code below to re-generate/add data
# 2. Simulated dataset
simPK <- read.csv(file=file.path("./tests/testthat/test_datasets", "sim1.csv"),
stringsAsFactors=F)
simPKDataspecFile <- "sim1_dataSpec.csv"
# 3. auc vs dose data
linearPKdata <-
data.frame(dose=c(100,100,100,100,100,100,100,100,100,100,100,100,
100,100,100,100,100,100,150,150,150,150,150,150,
150,150,150,150,150,150,150,150,150,150,150,150,
100,100,100,100,100,100,100,100,100,100,100,100,
100,100,100,100,100,100,150,150,150,150,150,150,
150,150,150,150,150,150,150,150,150,150,150,150),
auc=c(470.2052,372.4410,412.9724,301.2625,421.5956,478.4834,
807.8611,828.2524,467.4932,288.9257,331.0415,686.2151,
444.1724,1183.3660,591.0364,364.1248,1197.5036,360.4990,
1158.7488,723.5702,1540.7591,734.8260,681.0722,523.5568,
1221.0555,760.3157,1573.5325,574.7461,664.6938,1219.1461,
775.9821,795.0195,970.6272, NA,2366.4748,1780.8268,
573.8949, 440.3093, 295.7830,378.9801,432.7007,606.5818,
1051.2342,604.8077,450.0130,218.3324,342.5008,829.5407,
NA,1696.5822,767.0397,337.7299,912.7365,392.9913,
1512.7496,682.1088,1509.1585,690.3733,509.7287,531.0019,
985.5936,707.7177,1078.2239,646.5570,674.0248,1149.3860,
1488.8874,NA,822.8113,1633.5188,2417.8652,2040.0483))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.