История изменений
Исправление psv1967, (текущая версия) :
ты мог просто вывести массив, время идентично во всех датасетах
lsdir <- system("ls ./data", intern=T)
## в формате твоем лишнии пробелы ломающие парсер на character
data.raw <- lapply(lsdir, function(f) data.frame(lapply(read.csv2(paste0("./data/", f), as.is = TRUE), as.numeric)))
## ну и вот только один вариант времени замеров
> nrow(unique(t(sapply(data.raw, function(d) d[,1]))))
> [1] 1
## оставляем только данные
> data.clean <- t(sapply(data.raw, function(d) d[,2]))
> str(data.clean)
> num [1:2048, 1:800] 0.000503 0.008543 0.008543 0.016583 0.088945 ...
сейчас дальше посмотрю
Исправление psv1967, :
ты мог просто вывести массив, время идентично во всех датасетах
lsdir <- system("ls ./data", intern=T)
## в формате твоем лишнии пробелы ломающие парсер на character
data.raw <- lapply(lsdir, function(f) data.frame(lapply(read.csv2(paste0("./data/", f), as.is = TRUE), as.numeric)))
## ну и вот только один вариант времени замеров
[quote] nrow(unique(t(sapply(data.raw, function(d) d[,1]))))[br][/quote][1] 1
## оставляем только данные
[quote] data.clean <- t(sapply(data.raw, function(d) d[,2]))[br] str(data.clean)[br][/quote] num [1:2048, 1:800] 0.000503 0.008543 0.008543 0.016583 0.088945 ...
сейчас дальше посмотрю
Исходная версия psv1967, :
ты мог просто вывести массив, время идентично во всех датасетах
<code> lsdir <- system(«ls ./data», intern=T) ## в формате твоем лишнии пробелы ломающие парсер на character data.raw <- lapply(lsdir, function(f) data.frame(lapply(read.csv2(paste0("./data/", f), as.is = TRUE), as.numeric))) ## ну и вот только один вариант времени замеров
nrow(unique(t(sapply(data.raw, function(d) d[,1]))))
[1] 1 ## оставляем только данные
data.clean <- t(sapply(data.raw, function(d) d[,2]))
str(data.clean)
num [1:2048, 1:800] 0.000503 0.008543 0.008543 0.016583 0.088945 ...
</code>
сейчас дальше посмотрю