diff options
Diffstat (limited to 'R/drfit.R')
| -rw-r--r-- | R/drfit.R | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -200,8 +200,8 @@ drfit <- function(data, startlogEC50 = NA, chooseone=TRUE, f[[ri]] <- NA } } - results <- data.frame(rsubstance,rn, rlhd, mtype, logEC50, stderrlogEC50, unit, sigma) - names(results) <- c("Substance","n", "lhd","mtype","logEC50","std","unit","sigma") + results <- data.frame(rsubstance, rn, rlld, rlhd, mtype, logEC50, stderrlogEC50, unit, sigma) + names(results) <- c("Substance","n","lld","lhd","mtype","logEC50","std","unit","sigma") if (lognorm || logis) { results$slope <- slope } @@ -284,6 +284,7 @@ drplot <- function(drresults, data, dtype = "std", alpha = 0.95, splitted <- split(data,data$substance) n <- 0 if (bw) colors <- rep("black",length(dsubstances)) + # Loop over the substances in the data for (i in dsubstances) { n <- n + 1 tmp <- splitted[[i]] @@ -293,13 +294,13 @@ drplot <- function(drresults, data, dtype = "std", alpha = 0.95, if (!overlay) { if (postscript) { - filename = paste(path,fileprefix,sub(" ","_",gsub("([\(\) ])", "", i)),".eps",sep="") + filename = paste(path,fileprefix,sub(" ","_",i),".eps",sep="") postscript(file=filename, paper="special",width=7,height=7,horizontal=FALSE,pointsize=12) cat("Created File: ",filename,"\n") } if (png) { - filename = paste(path,fileprefix,sub(" ","_",gsub("([\(\) ])", "", i)),".png",sep="") + filename = paste(path,fileprefix,sub(" ","_",i),".png",sep="") png(filename=filename, width=500, height=500,pointsize=12) cat("Created File: ",filename,"\n") |