aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorranke <ranke@5fad18fb-23f0-0310-ab10-e59a3bee62b4>2006-05-16 19:52:55 +0000
committerranke <ranke@5fad18fb-23f0-0310-ab10-e59a3bee62b4>2006-05-16 19:52:55 +0000
commite12be874ff477509b737ad09bf05144a7fbedac2 (patch)
tree89756697cd3b40a812a3db777acddc4cea051d66
parent49eff36596275b1dbb5e07c97fb93db182baa27e (diff)
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
-rw-r--r--R/lod.R2
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))
}

Contact - Imprint