Tried to fix the return value of lod, but not yet.

git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/chemCal@12 5fad18fb-23f0-0310-ab10-e59a3bee62b4

1 files changed, 1 insertions, 1 deletions

diff --git a/R/lod.R b/R/lod.R
index 73f5353..39ce7b3 100644
--- a/R/lod.R
+++ b/R/lod.R
@@ -29,6 +29,6 @@ lod.lm <- function(object, ..., alpha = 0.05, beta = 0.05)
   lod.x <- optimize(f,interval=c(0,max(object$model[[xname]])))$minimum
   newdata <- data.frame(x = lod.x)
   names(lod.x) <- xname
-  lod.y <-  predict(object, data.frame(lod.x))
+  lod.y <-  predict(object, newdata = lod.x)
   return(list(x = lod.x, y = lod.y))
 }