预测序列 R 中的下一个值

如何解决预测序列 R 中的下一个值

我正在寻找一个模型来预测下面序列的下一个值。原始数据为：

structure(list(job1category = c(5,1,5,2,3,4,5),job2category = c(5,job3category = c(5,job4category = c(5,5)),row.names = c(NA,-100L),class = c("tbl_df","tbl","data.frame"))

在将 4 列的值连接成一个字符串后，我探索了最常见的数字对，发现 5 5 是第一。

structure(list(Var1 = structure(1:5,.Label = c("5 5","1 1","1 5","3 3","2 2"),class = "factor"),Freq = c(125L,104L,21L,18L,9L)),class = "data.frame",-5L))

现在我想预测 5 5 发生后的下一个值。因此，我找到了在序列中任何地方都有 5 5 的所有序列，并且只查看前 5 个之后的所有内容：

Freq_Top1 <- 
structure(list(data_rel1 = c("5 5 5 5","1 5 5 5","5 5 5 5","2 5 5 5","3 5 5 5","4 5 5 5","5 5 5 5")),-50L),"data.frame"))

我已尝试使用 PSF 库，但以下代码出现错误。我是否必须更多地预处理数据？或者有没有更好的方法来预测下一个值？

nottem_model <- psf(Freq_Top1)
Error in data - dmin : non-numeric argument to binary operator

由于我提供给模型的数据不平衡，预测结果显然会说明值 5，但我仍在寻找可以进行预测的模型。任何提示表示赞赏！