From e12be874ff477509b737ad09bf05144a7fbedac2 Mon Sep 17 00:00:00 2001
From: ranke <ranke@5fad18fb-23f0-0310-ab10-e59a3bee62b4>
Date: Tue, 16 May 2006 19:52:55 +0000
Subject: 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
---
 R/lod.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R')

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