aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
Diffstat (limited to 'R')
-rw-r--r--R/lod.R1
-rw-r--r--R/loq.R1
2 files changed, 2 insertions, 0 deletions
diff --git a/R/lod.R b/R/lod.R
index 5b74418..bccdf3e 100644
--- a/R/lod.R
+++ b/R/lod.R
@@ -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)
diff --git a/R/loq.R b/R/loq.R
index f832265..26d6a53 100644
--- a/R/loq.R
+++ b/R/loq.R
@@ -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)

Contact - Imprint