From 9411139beee167c5339e96db448e5dbed19e06bc Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Thu, 5 Jul 2018 18:44:22 +0200
Subject: 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
---
 R/lod.R | 1 +
 R/loq.R | 1 +
 2 files changed, 2 insertions(+)

(limited to 'R')

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)
-- 
cgit v1.2.1