Put the calculation of dissipation times, formation fractions and SFORB eigenvalues into a separate function

Some testing of this functionality in test.R



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

1 files changed, 1 insertions, 1 deletions

diff --git a/R/mkinerrmin.R b/R/mkinerrmin.R
index 5415b41..c278647 100644
--- a/R/mkinerrmin.R
+++ b/R/mkinerrmin.R
@@ -76,5 +76,5 @@ mkinerrmin <- function(fit, alpha = 0.05)
     errmin[obs_var, c("err.min", "n.optim", "df")] <- errmin.tmp

   }

 

-	return(errmin)

+  return(errmin)

 }