Commented out some of the mkinfit examples using \dontrun{} markup as they run a bit long

git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@124 edb9625f-4e0d-4859-8d74-9fd3b1da38cb

1 files changed, 3 insertions, 1 deletions

diff --git a/man/mkinfit.Rd b/man/mkinfit.Rd
index c15c0843..51e26ed5 100644
--- a/man/mkinfit.Rd
+++ b/man/mkinfit.Rd
@@ -187,7 +187,6 @@ fit.FOMC_SFO <- mkinfit(FOMC_SFO, FOCUS_2006_D)
 fit.FOMC = mkinfit(FOMC, FOCUS_2006_D, plot=TRUE)
 fit.FOMC_SFO <- mkinfit(FOMC_SFO, FOCUS_2006_D, 
   parms.ini = fit.FOMC$bparms.ode, plot=TRUE)
-}
 
 # Use stepwise fitting, using optimised parameters from parent only fit, SFORB
 SFORB <- mkinmod(parent = list(type = "SFORB"))
@@ -199,6 +198,7 @@ fit.SFORB_SFO <- mkinfit(SFORB_SFO, FOCUS_2006_D)
 # Use starting parameters from parent only SFORB fit (not really needed in this case)
 fit.SFORB = mkinfit(SFORB, FOCUS_2006_D)
 fit.SFORB_SFO <- mkinfit(SFORB_SFO, FOCUS_2006_D, parms.ini = fit.SFORB$bparms.ode)
+}
 
 # Weighted fits, including IRLS
 SFO_SFO.ff <- mkinmod(parent = list(type = "SFO", to = "m1"),
@@ -213,6 +213,7 @@ f.w.mean.irls <- mkinfit(SFO_SFO.ff, FOCUS_2006_D, weight = "mean",
                          reweight.method = "obs")
 summary(f.w.mean.irls)
 
+\dontrun{
 # Manual weighting
 dw <- FOCUS_2006_D
 errors <- c(parent = 2, m1 = 1)
@@ -223,5 +224,6 @@ f.w.man.irls <- mkinfit(SFO_SFO.ff, dw, err = "err.man",
                        reweight.method = "obs")
 summary(f.w.man.irls)
 }
+}
 \keyword{ models }
 \keyword{ optimize }