From e12be874ff477509b737ad09bf05144a7fbedac2 Mon Sep 17 00:00:00 2001 From: ranke 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