aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2013-02-16 21:15:52 +0000
committerjranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>2013-02-16 21:15:52 +0000
commit329dadc5fd557cbeec0d1f3a6db57b6b4d6f41d4 (patch)
tree8159a9ba673fc6c150a92748e142697c845ece1d /R
parente6ba7af29db678ef437e7f8301299ec18f4c66a4 (diff)
- Some maintenance fixes
- Start of the examples vignette git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@61 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
Diffstat (limited to 'R')
-rw-r--r--R/mkinfit.R2
-rw-r--r--R/mkinresplot.R2
-rw-r--r--R/plot.mkinfit.R4
3 files changed, 4 insertions, 4 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R
index f574b6eb..411cb40c 100644
--- a/R/mkinfit.R
+++ b/R/mkinfit.R
@@ -158,7 +158,7 @@ mkinfit <- function(mkinmod, observed,
points(subset(observed, name == obs_var, c(time, value)),
pch = pch_obs[obs_var], col = col_obs[obs_var])
}
- matlines(out_plot$time, out_plot[-1], co = col_obs, lty = lty_obs)
+ matlines(out_plot$time, out_plot[-1], col = col_obs, lty = lty_obs)
legend("topright", inset=c(0.05, 0.05), legend=obs_vars,
col=col_obs, pch=pch_obs, lty=1:length(pch_obs))
}
diff --git a/R/mkinresplot.R b/R/mkinresplot.R
index 63927947..b3482789 100644
--- a/R/mkinresplot.R
+++ b/R/mkinresplot.R
@@ -19,7 +19,7 @@
# this program. If not, see <http://www.gnu.org/licenses/>
mkinresplot <- function (object, obs_vars = vector(),
- xlab = "Time [days]", ylab = "Residual [% of applied radioactivity]",
+ xlab = "Time", ylab = "Residual",
maxabs = "auto", legend= TRUE, lpos = "topright", ...)
{
obs_vars_all <- as.character(unique(object$data$variable))
diff --git a/R/plot.mkinfit.R b/R/plot.mkinfit.R
index 1858aa8a..b47678ba 100644
--- a/R/plot.mkinfit.R
+++ b/R/plot.mkinfit.R
@@ -1,8 +1,8 @@
plot.mkinfit <- function(x, fit = x,
xlab = "Time", ylab = "Observed",
- xlim = range(fit$data$time), ylim = range(fit$data$observed, na.rm = TRUE),
+ xlim = range(fit$data$time), ylim = c(0, max(fit$data$observed, na.rm = TRUE)),
col_obs = 1:length(fit$mkinmod$map),
- pch_obs = col_obs, lty_obs = rep(1, length(fit$mkinmod$map)),
+ pch_obs = col_obs, lty_obs = 1,
add = FALSE, legend = !add, ...)
{
solution_type = fit$solution_type

Contact - Imprint