diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/lod.R | 1 | ||||
| -rw-r--r-- | R/loq.R | 1 | 
2 files changed, 2 insertions, 0 deletions
| @@ -48,6 +48,7 @@ lod.lm <- function(object, ..., alpha = 0.05, beta = 0.05, method = "default", t      newdata <- data.frame(x = lod.x)      names(newdata) <- xname      lod.y <-  predict(object, newdata) +    names(lod.y) <- NULL    }    lod <- list(lod.x, lod.y)    names(lod) <- c(xname, yname) @@ -35,6 +35,7 @@ loq.lm <- function(object, ..., alpha = 0.05, k = 3, n = 1, w.loq = "auto",    newdata <- data.frame(x = loq.x)    names(newdata) <- xname    loq.y <- predict(object, newdata) +  names(loq.y) <- NULL    loq <- list(loq.x, loq.y)    names(loq) <- c(xname, yname)    return(loq) | 
