История изменений

Исправление psv1967, 26.07.13 21:57 (текущая версия) :

вот собственно три соседних выверта

l <- system2(«ls», "./tubes", stdout = T)

schift.3.data <- function(data) {
  cbind(data[1:(nrow(data)-2),],
        data[2:(nrow(data)-1),],
        data[3:nrow(data),])
}


data <- do.call(rbind, lapply(1:length(l), function(i) schift.3.data(read.table(paste0("./tubes/",l))[,2:11]) )) plot(prcomp(data)$x[,1:2])

получается вся изменчивость вывертов практически описывается плоскостью.

на плоскости симметричная картинка, многие ситуации накладываются друг на друга. есть редкие ситуации.

нужны сведения какие из файлов описывают ошибки. или на какой строке файла наступает событие (в принципе подойдет по методу исключения и указание какой файл совсем без ошибок)

Исходная версия psv1967, 26.07.13 21:55:

вот собственно три соседних выверта

l <- system2(«ls», "./tubes", stdout = T)

read.table(paste0("./tubes/",l[1]))

schift.3.data <- function(data) {
  cbind(data[1:(nrow(data)-2),],
        data[2:(nrow(data)-1),],
        data[3:nrow(data),])
}


data <- do.call(rbind, lapply(1:length(l), function(i) schift.3.data(read.table(paste0("./tubes/",l))[,2:11]) )) plot(prcomp(data)$x[,1:2])

получается вся изменчивость вывертов практически описывается плоскостью.

на плоскости симметричная картинка, многие ситуации накладываются друг на друга. есть редкие ситуации.