Я не знаю, что я делаю не так. В Rstudio cloud все работает, но в rstudio deskop появляется ошибка.
myData <- read.csv('C:/Users/iwona/Desktop/myData.csv', header = TRUE)
print('wpisz numer województwa, dla którego zostanie przygotowana anliza')
h1 <- readline(prompt="0-Dolnoslaskie, 1-Kujawsko-Pomorskie, 2-Lubelskie, 3-Lubuskie, 4-Lodzkie,
5-Malopolskie, 6-Mazowieckie, 7-Opolskie, 8-Podkarpackie, 9-Podlaskie, 10-Pomorskie,
11-Slaskie, 12-Swietokrzyskie, 13-Warminsko-Mazurskie, 14-Wielkopolskie, 15-Zachodniopomorskie")
h <- as.numeric(h1)
months_prices <- vector()
prices <- vector()
dataSummary <- vector()
regions <- as.character(myData$Nazwa[5:20])
years <- 2006:2019
services <- vector()
#regions <- dataframe
serviceNames <- c('Ryz','Mieso wolowe bez kosci','Kurczeta patroszone','Kielbasa suszona','Ser dojrzewajacy','Herbata czarna, lisciasta','Podkoszulek meski bawelniany, bez rekawa','Oczyszczanie chemiczne garnituru meskiego 2-czesciowego','Wegiel kamienny','Olej napedowy')
#for(h in 0:15) # h for regions
#h <- 5
par(mfrow=c(5,2))
cumulative <- data.frame(years=integer(), prices=logical(), services=logical())
for(i in 0:9) # i for services
{
for (j in 0:13) # j for years 2006-2019
{
for(k in 0:11) #k for months
{
months_prices[k+1] <- as.numeric(as.matrix(myData[5+h,4+j+(i*14)+(k*140)])[1,])
}
prices[j+1] <- mean(months_prices)
services[j+1] <- serviceNames[i+1]
months_prices <- vector() # empty
}
pricesForService.data <- data.frame(years, prices, services)
cumulative <- rbind(cumulative, pricesForService.data)
tmp <- cumulative[cumulative$services == serviceNames[i+1], ]
plot(tmp$years, tmp$prices,
main = serviceNames[i+1],
xlab="Lata", ylab="Ceny",
type = "l",
col = "blue")
mtext(regions[h+1], side = 3, line = -1.5, outer = TRUE)
}
Я получаю следующую ошибку:
Error in array(x, c(length(x), 1L), if (!is.null(names(x)))
list(names(x), : 'data' must be of a vector type, was 'NULL'
Спасибо за вашу помощь