Percent standard deviation of controls is given by the output of the

checkplate function.



git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@41 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc

1 files changed, 4 insertions, 3 deletions

diff --git a/R/drfit.R b/R/drfit.R
index 45343e2..9c99b1a 100644
--- a/R/drfit.R
+++ b/R/drfit.R
@@ -491,6 +491,7 @@ checkplate <- function(plate,db="cytotox")
         meanOfControls <- mean(controls$response)
         stdOfBlinds <- sd(blinds$response)
         stdOfControls <- sd(controls$response)
+        percentstdOfcontrols <-stdOfControls *100/meanOfControls
         
         cat("Plate ",plate," from database ",db,"\n",
             "\tExperimentator: ",levels(platedata$experimentator),"\n",
@@ -499,9 +500,9 @@ checkplate <- function(plate,db="cytotox")
             "\tSubstance(s): ",levels(platedata$substance),"\n",
             "\tConcentration unit: ",levels(platedata$unit),"\n",
             "\tOK: ",levels(platedata$ok),"\n",
-            "\t\tNumber \tMean \tStandard Deviation\n",
-            "blind\t\t",numberOfBlinds,"\t",meanOfBlinds,"\t",stdOfBlinds,"\n",
-            "control\t",numberOfControls,"\t",meanOfControls,"\t",stdOfControls,"\n")
+            "\t\tNumber \tMean \t\tStandard Deviation \t% Standard Deviation \n",
+            "\tblind\t",numberOfBlinds,"\t",meanOfBlinds,"\t",stdOfBlinds,"\n",
+            "\tcontrol\t",numberOfControls,"\t",meanOfControls,"\t",stdOfControls,"\t\t",percentstdOfcontrols,"\n")
         
         par(ask=TRUE)