From e83723b497d97cfb4e9e3a9803e06c81e7f0b12a Mon Sep 17 00:00:00 2001
From: ranke <ranke@5fad18fb-23f0-0310-ab10-e59a3bee62b4>
Date: Thu, 24 Apr 2014 16:03:41 +0000
Subject: - Added ChangeLog - Bugfix for lod() for the case of small x values
 (see ChangeLog) - Version 0.1-32 as just submitted to CRAN - Got rid of trunk
 directory, as I will not find the time to finish what I started there and it 
  may confuse visitors of viewcvs in kriemhild

git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/chemCal@31 5fad18fb-23f0-0310-ab10-e59a3bee62b4
---
 trunk/chemCal/R/calplot.R | 80 -----------------------------------------------
 1 file changed, 80 deletions(-)
 delete mode 100644 trunk/chemCal/R/calplot.R

(limited to 'trunk/chemCal/R/calplot.R')

diff --git a/trunk/chemCal/R/calplot.R b/trunk/chemCal/R/calplot.R
deleted file mode 100644
index 6aed9c0..0000000
--- a/trunk/chemCal/R/calplot.R
+++ /dev/null
@@ -1,80 +0,0 @@
-calplot <- function(object, 
-  xlim = c("auto", "auto"), ylim = c("auto", "auto"), 
-  xlab = "Concentration", ylab = "Response", alpha = 0.05,
-  varfunc = NULL)
-{
-  UseMethod("calplot")
-}
-
-calplot.default <- function(object, 
-  xlim = c("auto","auto"), ylim = c("auto","auto"), 
-  xlab = "Concentration", ylab = "Response",
-  alpha=0.05, varfunc = NULL)
-{
-  stop("Calibration plots only implemented for univariate lm objects.")
-}
-
-calplot.lm <- function(object,
-  xlim = c("auto","auto"), ylim = c("auto","auto"), 
-  xlab = "Concentration", ylab = "Response", alpha=0.05,
-  varfunc = NULL)
-{
-  if (length(object$coef) > 2)
-    stop("More than one independent variable in your model - not implemented")
-
-  if (alpha <= 0 | alpha >= 1)
-    stop("Alpha should be between 0 and 1 (exclusive)")
-
-  m <- object
-  level <- 1 - alpha
-  y <- m$model[[1]]
-  x <- m$model[[2]]
-  if (xlim[1] == "auto") xlim[1] <- 0
-  if (xlim[2] == "auto") xlim[2] <- max(x)
-  xlim <- as.numeric(xlim)
-  newdata <- list(
-    x = seq(from = xlim[[1]], to = xlim[[2]], length=250))
-  names(newdata) <- names(m$model)[[2]]
-  if (is.null(varfunc)) {
-    varfunc <- if (length(m$weights)) {
-        function(variable) mean(m$weights)
-      } else function(variable) rep(1,250)
-  }
-  pred.lim <- predict(m, newdata, interval = "prediction",
-    level=level, weights.newdata = varfunc(m))
-  conf.lim <- predict(m, newdata, interval = "confidence",
-    level=level)
-  yrange.auto <- range(c(0,pred.lim))
-  if (ylim[1] == "auto") ylim[1] <- yrange.auto[1]
-  if (ylim[2] == "auto") ylim[2] <- yrange.auto[2]
-  plot(1,
-    type = "n", 
-    xlab = xlab,
-    ylab = ylab,
-    xlim = as.numeric(xlim),
-    ylim = as.numeric(ylim)
-  )
-  points(x,y, pch = 21, bg = "yellow")
-  matlines(newdata[[1]], pred.lim, lty = c(1, 4, 4), 
-    col = c("black", "red", "red"))
-  if (length(object$weights) > 0) {
-    legend(min(x), 
-      max(pred.lim, na.rm = TRUE), 
-      legend = c("Fitted Line", "Confidence Bands"),
-      lty = c(1, 3), 
-      lwd = 2, 
-      col = c("black", "green4"), 
-      horiz = FALSE, cex = 0.9, bg = "gray95")
-  } else {
-  matlines(newdata[[1]], conf.lim, lty = c(1, 3, 3), 
-    col = c("black", "green4", "green4"))
-  legend(min(x), 
-    max(pred.lim, na.rm = TRUE), 
-    legend = c("Fitted Line", "Confidence Bands", 
-        "Prediction Bands"), 
-    lty = c(1, 3, 4), 
-    lwd = 2, 
-    col = c("black", "green4", "red"), 
-    horiz = FALSE, cex = 0.9, bg = "gray95")
-  }
-}
-- 
cgit v1.2.1