aboutsummaryrefslogblamecommitdiff
path: root/R/mkinresplot.R
blob: bede5f78d9b7a71c567790f86bea2a4f49d6dc30 (plain) (tree)





















































                                                                                              
# $Id:  $

# Copyright (C) 2008-2011 Katrin Lindenberger and Johannes Ranke
# Contact: mkin-devel@lists.berlios.de

# This file is part of the R package mkin

# mkin is free software: you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation, either version 3 of the License, or (at your option) any later
# version.

# This program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
# details.

# You should have received a copy of the GNU General Public License along with
# this program. If not, see <http://www.gnu.org/licenses/>

mkinresplot <- function (object, obs_vars = vector(), 
  xlab = "Time [days]", ylab = "Residual [% of applied radioactivity]",
	maxabs = "auto", legend= TRUE, lpos = "topright", ...) 
{
	obs_vars_all <- as.character(unique(object$data$variable))

  if (length(obs_vars) > 0){
      vars <- intersect(obs_vars_all, obs_vars)	
  } else vars <- obs_vars_all

  residuals <- subset(object$data, variable %in% vars, residual)

  if (maxabs == "auto") maxabs = max(abs(residuals), na.rm = TRUE)

	col_obs <- pch_obs <- 1:length(vars)
 	names(col_obs) <- names(pch_obs) <- vars

  plot(0,  xlab = xlab, ylab = ylab, 
       xlim = c(0, 1.1 * max(object$data$time)), 
       ylim = c(-1.2 * maxabs, 1.2 * maxabs), ...)

	for(var in vars){
		residuals_plot <- subset(object$data, variable == var, c("time", "residual"))
		points(residuals_plot, pch = pch_obs[var], col = col_obs[var])
	}

  abline(h = 0, lty = 2)
  title(paste("Residuals of mkin fit"), font.main = 1)

 	if (legend == TRUE) {
    legend(lpos, inset = c(0.05, 0.05), legend = vars, 
    col = col_obs, pch = pch_obs)
  }
}

Contact - Imprint