I need perform forecat for two factors- STORE and ART.
So that I did

library(reshape2)
mydat=read.csv("C:/Users/synthex/Desktop/sales.csv", sep=";",dec=",")
df.sales.t <- acast(mydat, DAY ~ ART ~ STORE , value.var="SALES", fill=0)

library('forecast')
library('tseries')

[The structure of my data]
https://i.stack.imgur.com/W6bdb.png

540.956 it's mean ART=№540 and STORE=№956

This loop for all variables

my_forecast <- function(x){
model <- arima(x, order = c(1, 1, 1))
fcast <- forecast(model, 1)
return(fcast)
}

prog=lapply(df.sales.t[1:1], my_forecast)

Then I got the error

Error in arima(x, order = c(1, 1, 1)) : too few non-missing observations

What's wrong?