From 560574be0221d8692d9f74c9454b1aac79e94c69 Mon Sep 17 00:00:00 2001 From: ranke Date: Mon, 10 Oct 2005 11:38:28 +0000 Subject: 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 --- R/drfit.R | 7 ++++--- 1 file 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) -- cgit v1.2.1