From 534ca604ff8fa435c9b07f812de40a1af1e20e0c Mon Sep 17 00:00:00 2001
From: jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Tue, 12 Mar 2013 04:21:30 +0000
Subject: Improve formatting of data in print.summary.mkinfit()

git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@76 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---
 DESCRIPTION | 4 ++--
 R/mkinfit.R | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 431df8b..8f36aab 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -2,8 +2,8 @@ Package: mkin
 Type: Package
 Title: Routines for fitting kinetic models with one or more state
   variables to chemical degradation data
-Version: 0.9-16
-Date: 2013-03-05
+Version: 0.9-17
+Date: 2013-03-12
 Author: Johannes Ranke, Katrin Lindenberger, René Lehmann
 Maintainer: Johannes Ranke <jranke@uni-bremen.de>
 Description: Calculation routines based on the FOCUS Kinetics Report (2006).
diff --git a/R/mkinfit.R b/R/mkinfit.R
index 12a67bc..d8a1c9e 100644
--- a/R/mkinfit.R
+++ b/R/mkinfit.R
@@ -349,7 +349,7 @@ print.summary.mkinfit <- function(x, digits = max(3, getOption("digits") - 3), .
   printdata <- !is.null(x$data)
   if (printdata){
     cat("\nData:\n")
-    print(format(x$data, digits = digits, scientific = FALSE,...), row.names = FALSE)
+    print(format(x$data, digits = digits, ...), row.names = FALSE)
   }
 
   invisible(x)
-- 
cgit v1.2.1