悬赏 5 个论坛币 未解决
请教大佬们,
r语言循环语句为啥只循环两次?手动循环的时候不要太顺利
library(RMySQL)
library(DBI)
library(stats)
#library(TTR)
library(zoo)
library(xts)
library(tseries)
#library(TSA)
library(forecast)
library(stringr)
product_circle<-c(21)
DATA_SALES = dbGetQuery(mysqlconnection,sql) # 9304
q=dim(DATA_SALES)[1]/255
sales_pred=NULL
########repeat循环########
i=0
repeat {
m<-DATA_SALES[1+i*255:255+i*255,]
ts_sales_s<-ts(m[,5])
arima_sale<-auto.arima(ts_sales_s) #,period=7)
browser()
pred_arima_sale <-forecast(arima_sale,h=product_circle)
sum_pred<-sum(pred_arima_sale$mean)
sale_pred=c(m[1,1],m[1,2],m[1,3],as.Date(Sys.Date()),as.Date(Sys.Date()+product_circle),sum_pred)
sales_pred<-rbind(sales_pred,sale_pred)
i=i+1
if(i>q-1) { break
}
}
head(sales_pred)
为啥只循环两次啊