diff options
| -rw-r--r-- | R/drfit.R | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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) |