bug fix for issue #10 - Githubissues

I've made two additions to the plot.drc function to fix the issues raised in #10.

The first fix is in the normalization block where previously the points would be reordered in alphabetical order by curveid; causing the curves to deviate from the plotted points. To prevent this behavior, each response is named by the order it appeared in the input data, normalized, then reordered by name to ensure it matches the original order.

The second fix is in the type = 'bars' code block. If normal == TRUE, the error bars are normalized using the same normalization code as before. Note that this may result in error bars that dip below 0 or above 1.

See code below for examples:

library(drc)
library(dplyr)
mydata <- read.csv("repex.csv")

silly.order <- data.frame(col = c(1:12), 
                          col.silly = c(1,4,7,10,
                                        2,5,8,11,
                                        3,6,9,12))

mydata <- mydata %>%
  left_join(silly.order) %>%
  arrange(col.silly)

drc.model <-  drm(abs ~ conc, drug, data = mydata, fct = LL.4())

plot(drc.model, 
     type = "all",
     normal = F, 
     col = T, 
     broken = T, 
)

plot(drc.model, 
     type = "all",
     normal = T, 
     col = T, 
     broken = T, 
)


plot(drc.model, 
     type = "bars",
     normal = T, 
     col = T, 
     broken = T, 
)

DoseResponse / drc

bug fix for issue #10 #11

Codecov Report