Цикл для создания и сохранения гистограмм, приводящих к ошибке - PullRequest
Новая
       17

Цикл для создания и сохранения гистограмм, приводящих к ошибке

0 голосов
/ 29 мая 2019

Я пытаюсь создать блок кода, который будет проходить через каждый файл в папке (C: / stockHistoryYear /), получать значения возврата акций, создавать гистограмму и сохранять гистограмму для каждого файла Однако код, который я использую, возвращает с ошибкой

Ошибка в файле (file, "rt"): не удается открыть соединение

Я новичок в R, и большая часть моей информации от случайных видео Youtube и этого сайта. Буду рад любой помощи и дополнительным знаниям, которые у вас могут быть

Мой текущий код: 

for (i in 1:length(files)) {
 data <- read.csv(files[i])
 prices <- data[, "Adj.Close"]
 n <- NROW (prices)
 ret <- ((prices[2:n]-prices[1:(n-1)])/prices[1:(n-1)])
 names(ret) <- data[2:n, "Date"]
 picname <- c(toString(files[i]),'.png')
 toString(picname)
 png(picname)
 hist(ret, col = "blue", lwd = 2, ylab = "Frequency", xlab = "Stock Return", 
 main = i)
 dev.off() 
}

Выполнение traceback () привело к: 

3: file(file, "rt")
2: read.table(file = file, header = header, sep = sep, quote = quote, 
       dec = dec, fill = fill, comment.char = comment.char, ...)
1: read.csv(files[i])
...