From 12934520d7ec3218ce1505787b6066334a24a562 Mon Sep 17 00:00:00 2001 From: jranke Date: Tue, 30 Mar 2010 19:49:44 +0000 Subject: Initial import of the kinfit package developed from 2008-07 to 2010-03 at Harlan Laboratories Ltd (former RCC Ltd). Supports fitting of parent data with the usual FOCUS kinetic models. git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/kinfit@2 edb9625f-4e0d-4859-8d74-9fd3b1da38cb --- tests/test_FOCUS_2006_A.R | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 tests/test_FOCUS_2006_A.R (limited to 'tests/test_FOCUS_2006_A.R') diff --git a/tests/test_FOCUS_2006_A.R b/tests/test_FOCUS_2006_A.R new file mode 100644 index 0000000..2077315 --- /dev/null +++ b/tests/test_FOCUS_2006_A.R @@ -0,0 +1,25 @@ +library(kinfit) +data(FOCUS_2006_A) +fits <- kinfit(FOCUS_2006_A, kinmodels = c("SFO", "HS")) +print(kinresults(fits)$results, digits=5) +print(kinresults(fits)$stats, digits=5) + +data(FOCUS_2006_B) +fits <- kinfit(FOCUS_2006_B, kinmodels = c("SFO", "FOMC", "DFOP")) +print(kinresults(fits)$results, digits=5) +print(kinresults(fits)$stats, digits=5) + +data(FOCUS_2006_C) +fits <- kinfit(FOCUS_2006_C, kinmodels = c("SFO", "FOMC", "DFOP")) +print(kinresults(fits)$results, digits=5) +print(kinresults(fits)$stats, digits=5) + +data(FOCUS_2006_D) +fits <- kinfit(FOCUS_2006_D, kinmodels = c("SFO", "FOMC")) +print(kinresults(fits)$results, digits=5) +print(kinresults(fits)$stats, digits=5) + +data(FOCUS_2006_E) +fits <- kinfit(FOCUS_2006_E, kinmodels = c("SFO", "FOMC", "DFOP")) +print(kinresults(fits)$results, digits=5) +print(kinresults(fits)$stats, digits=5) -- cgit v1.2.1