Question

这是交易：我有一个包含14列和20行的数据框。我想在每个列上应用预测函数，并追加11个与每列对应的行。这样做的最佳方式是什么？

换句话说，20 * 14数据帧变为31 * 14数据帧。

以下是我想申请的功能：

time_series <- ts(summary, frequency=7, start=c(1,1)
for(i in 1:ncol(time_series))
{
  forecast(time_series[,i],11)
}

原始数据框是：摘要

请帮忙。我可以手动迭代并执行此操作，但我希望更有效地执行此操作。

Answer 1

您可以尝试通常的def testing2(terms, request): dat = datetime.now(pytz.timezone(geo_timezone(request))) __start = terms['year'] + '-' + terms['month'] + '-' + terms['day'] + \ 'T' + '00:00:00' + dat.strftime('%z')[:-2] + ':' + dat.strftime('%z')[-2:] __end = terms['year'] + '-' + terms['month'] + '-' + terms['day'] + \ 'T' + '23:59:59' + dat.strftime('%z')[:-2] + ':' + dat.strftime('%z')[-2:] return __start, __end：

sapply

R函数使用时间序列和预测函数

1 个答案: