aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>2005-10-10 11:38:28 +0000
committerranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>2005-10-10 11:38:28 +0000
commit560574be0221d8692d9f74c9454b1aac79e94c69 (patch)
tree69666d04ea194e09e10cb8bd7b3538df3dc29a09 /R
parentc8c7112c5d2ed4f1ddcbd9179b52b8e3d6d76f8e (diff)
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
Diffstat (limited to 'R')
-rw-r--r--R/drfit.R7
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)

Contact - Imprint