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