Changed confint.basic to confint_basic to avoid S3 mixup.

Author: JensBaalkilde

R/bmd.R

@@ -265,7 +265,7 @@ bmd<-function(object, bmr, backgType = c("modelBased", "absolute", "hybridSD", "
       if(inherits(object, "drcMMRE")){
         intMat <- matrix(qnorm(c((1-level)/2, 1-(1-level)/2), mean = bmdVal, sd = bmdSEVal), ncol = 2)
       } else {
-        intMat <- confint.basic(matrix(c(bmdVal, bmdSEVal), ncol = 2), 
+        intMat <- confint_basic(matrix(c(bmdVal, bmdSEVal), ncol = 2), 
                                       level = level, object$"type", df.residual(object), FALSE)
       }
     } else if(interval == "inv"){
@@ -351,7 +351,7 @@ bmd<-function(object, bmr, backgType = c("modelBased", "absolute", "hybridSD", "
         bmdSEVal <- sqrt(dBmdVal %*% varCov %*% dBmdVal)
 
         if(interval == "delta"){
-          intMat <- confint.basic(matrix(c(bmdVal, bmdSEVal), ncol = 2), 
+          intMat <- confint_basic(matrix(c(bmdVal, bmdSEVal), ncol = 2), 
                                         level = level, object$"type", df.residual(object), FALSE)
         }
 

R/confint.basic.R R/confint_basic.RR/confint.basic.R renamed to R/confint_basic.R

@@ -1,7 +1,8 @@
 # HELPER FUNCTION BORROWED FROM DRC PACKAGE
+# Name in drc package: confint.basic - changed to confint_basic to avoid S3 mixup
 # Defining basic function for providing confidence intervals
 
-"confint.basic" <- function(estMat, level, intType, dfres, formatting = TRUE)
+"confint_basic" <- function(estMat, level, intType, dfres, formatting = TRUE)
 {
   alphah <- (1 - level)/2 
   #    if (type == "u") {two <- qnorm(1 - alphah)}