aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2018-07-05 18:44:22 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2018-07-05 18:44:22 +0200
commit9411139beee167c5339e96db448e5dbed19e06bc (patch)
tree1bba625b3a2288c1ede4eefe1c23d3bcfa0f9fcc /R
parent801e95f1cc7bfcc8480f6f49b9da2331be71d1a9 (diff)
Maintenance in preparation of improvements
- Switch vignette to html - Switch tests to testthat - NEWS.md instead of ChangeLog - Remove names of y in lists returned by lod and loq
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