From e21653f89e78320f0d217a4d51c20d511f20d2a3 Mon Sep 17 00:00:00 2001
From: Johannes Ranke
library("mkin")
-
-
-## Loading required package: minpack.lm
-## Loading required package: rootSolve
-
-
-FOCUS_2006_L1 = data.frame(
+FOCUS_2006_L1 = data.frame(
t = rep(c(0, 1, 2, 3, 5, 7, 14, 21, 30), each = 2),
parent = c(88.3, 91.4, 85.6, 84.5, 78.9, 77.6,
72.0, 71.9, 50.3, 59.4, 47.0, 45.1,
@@ -231,8 +225,8 @@ summary(m.L1.SFO)
## mkin version: 0.9.31
## R version: 3.1.1
-## Date of fit: Mon Jul 14 12:36:12 2014
-## Date of summary: Mon Jul 14 12:36:12 2014
+## Date of fit: Mon Jul 14 20:32:20 2014
+## Date of summary: Mon Jul 14 20:32:20 2014
##
## Equations:
## [1] d_parent = - k_parent_sink * parent
@@ -333,8 +327,8 @@ summary(m.L1.FOMC, data = FALSE)
## mkin version: 0.9.31
## R version: 3.1.1
-## Date of fit: Mon Jul 14 12:36:12 2014
-## Date of summary: Mon Jul 14 12:36:12 2014
+## Date of fit: Mon Jul 14 20:32:20 2014
+## Date of summary: Mon Jul 14 20:32:20 2014
##
## Equations:
## [1] d_parent = - (alpha/beta) * ((time/beta) + 1)^-1 * parent
@@ -425,8 +419,8 @@ summary(m.L2.SFO)
## mkin version: 0.9.31
## R version: 3.1.1
-## Date of fit: Mon Jul 14 12:36:12 2014
-## Date of summary: Mon Jul 14 12:36:13 2014
+## Date of fit: Mon Jul 14 20:32:20 2014
+## Date of summary: Mon Jul 14 20:32:20 2014
##
## Equations:
## [1] d_parent = - k_parent_sink * parent
@@ -534,8 +528,8 @@ mkinresplot(m.L2.FOMC)
## mkin version: 0.9.31
## R version: 3.1.1
-## Date of fit: Mon Jul 14 12:36:13 2014
-## Date of summary: Mon Jul 14 12:36:13 2014
+## Date of fit: Mon Jul 14 20:32:21 2014
+## Date of summary: Mon Jul 14 20:32:21 2014
##
## Equations:
## [1] d_parent = - (alpha/beta) * ((time/beta) + 1)^-1 * parent
@@ -619,8 +613,8 @@ plot(m.L2.DFOP)
## mkin version: 0.9.31
## R version: 3.1.1
-## Date of fit: Mon Jul 14 12:36:13 2014
-## Date of summary: Mon Jul 14 12:36:13 2014
+## Date of fit: Mon Jul 14 20:32:23 2014
+## Date of summary: Mon Jul 14 20:32:23 2014
##
## Equations:
## [1] d_parent = - ((k1 * g * exp(-k1 * time) + k2 * (1 - g) * exp(-k2 * time)) / (g * exp(-k1 * time) + (1 - g) * exp(-k2 * time))) * parent
@@ -705,8 +699,8 @@ plot(m.L3.SFO)
## mkin version: 0.9.31
## R version: 3.1.1
-## Date of fit: Mon Jul 14 12:36:14 2014
-## Date of summary: Mon Jul 14 12:36:14 2014
+## Date of fit: Mon Jul 14 20:32:23 2014
+## Date of summary: Mon Jul 14 20:32:23 2014
##
## Equations:
## [1] d_parent = - k_parent_sink * parent
@@ -790,8 +784,8 @@ plot(m.L3.FOMC)
## mkin version: 0.9.31
## R version: 3.1.1
-## Date of fit: Mon Jul 14 12:36:14 2014
-## Date of summary: Mon Jul 14 12:36:14 2014
+## Date of fit: Mon Jul 14 20:32:24 2014
+## Date of summary: Mon Jul 14 20:32:24 2014
##
## Equations:
## [1] d_parent = - (alpha/beta) * ((time/beta) + 1)^-1 * parent
@@ -862,8 +856,8 @@ plot(m.L3.DFOP)
## mkin version: 0.9.31
## R version: 3.1.1
-## Date of fit: Mon Jul 14 12:36:14 2014
-## Date of summary: Mon Jul 14 12:36:14 2014
+## Date of fit: Mon Jul 14 20:32:24 2014
+## Date of summary: Mon Jul 14 20:32:24 2014
##
## Equations:
## [1] d_parent = - ((k1 * g * exp(-k1 * time) + k2 * (1 - g) * exp(-k2 * time)) / (g * exp(-k1 * time) + (1 - g) * exp(-k2 * time))) * parent
@@ -952,8 +946,8 @@ plot(m.L4.SFO)
## mkin version: 0.9.31
## R version: 3.1.1
-## Date of fit: Mon Jul 14 12:36:15 2014
-## Date of summary: Mon Jul 14 12:36:15 2014
+## Date of fit: Mon Jul 14 20:32:27 2014
+## Date of summary: Mon Jul 14 20:32:27 2014
##
## Equations:
## [1] d_parent = - k_parent_sink * parent
@@ -1026,8 +1020,8 @@ plot(m.L4.FOMC)
## mkin version: 0.9.31
## R version: 3.1.1
-## Date of fit: Mon Jul 14 12:36:15 2014
-## Date of summary: Mon Jul 14 12:36:15 2014
+## Date of fit: Mon Jul 14 20:32:28 2014
+## Date of summary: Mon Jul 14 20:32:28 2014
##
## Equations:
## [1] d_parent = - (alpha/beta) * ((time/beta) + 1)^-1 * parent
--
cgit v1.2.1