inst/datasetGeneration/generatingDatasets.R

In AstraZeneca/pmxplore: Customized (gg)plots for PK/PD data

# 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))