diff --git a/CHI.R b/CHI.R index e8ad0cd..0e036f3 100644 --- a/CHI.R +++ b/CHI.R @@ -349,12 +349,12 @@ cv2df <- function(cvfilename) { for (s in 1:length(starts)) { zz <- textConnection(chifile[starts[s]:ends[s]], "r") ff <- rbind(ff, - data.frame(segment = factor(s), + data.frame(segment = factor(s), cycle = ceiling(factor(s)/2), matrix(scan(zz, what = numeric(), sep = ","), ncol = 3, byrow = T))) close(zz) } - names(ff) <- c("segment", "potential", "current", "charge") + names(ff) <- c("segment", "cycle", "potential", "current", "charge") # ### Collect attributes of this experiment # These attributes are specific for each kind of experiment,