## Not run: A recalculation of the results underlying Figure 1 in Hoffelder (2016)
# can be done with the following code:## End(Not run)
data(ex_data_pharmind)
REF_pharmind <- cbind(ex_data_pharmind[ which(ex_data_pharmind$Group=='REF'), ]
[c("Diss_10_min","Diss_20_min","Diss_30_min")])
TEST_pharmind <- cbind(ex_data_pharmind[ which(ex_data_pharmind$Group=='TEST'), ]
[c("Diss_10_min","Diss_20_min","Diss_30_min")])
test_T2EQ.dissolution.profiles.hoffelder_pharmind <-
T2EQ.dissolution.profiles.hoffelder(X=REF_pharmind,Y=TEST_pharmind)
Run the code above in your browser using DataLab