|
|
|
@ -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,
|
|
|
|
|