Сбор данных

processFile <- function(passes, par = c("rate", "temp", "eq"), position = c("centre", "side")){
    data <- data.frame();
    stages <- c("a");
    # if par == temp, then try to find A, B and C files
    if(par == "temp"){
        stages <- c("a", "b", "c")
    }
    for(i in 1:passes){
        for(stage in stages){
            tryCatch(
                {temp = read.table(paste(c(par, "-", position, "-", i, "-", stage, ".csv"), collapse=""), sep=";", dec=",", header=TRUE);
                data <- rbind(data, colMeans(temp)[2:4])},
                error = function(e){cat("Can't find file, ignored.\n")}
            );
        }
    }
    colnames(data) <- c("bottom", "middle", "top")
    write.table(data, file=paste(c(par, "-", position, ".csv"), collapse=""), sep=";", dec=",")
}

dataMine <- function(position = c("centre", "side")){
    parameters = c("rate", "temp", "eq")
    for(parameter in parameters)
        processFile(passes=21, par = parameter, position)

}