原本我以以下形式提供数据
m n
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
使用以下代码将其转换为
input<-file('stdin', 'r')
mn <- read.table(input, nrows = 1, as.is = TRUE)
DF <- read.table(input, skip = 0)
m <- mn[[1]]
n <- mn[[2]]
x1<- DF[[1]]
y1<-DF[[2]]
x2<-DF[[3]]
y2<-DF[[4]]
fit1<-lm(x1 ~ poly(y1, 3, raw=TRUE))
fit2<-lm(x2 ~ poly(y2, 3, raw=TRUE))
`
m =当前数据长度
n =可以预测的未来点数
x1= 1 5 9 13
x2= 2 6 10 14
我想针对给定值之后的n个值预测x1 y1 x2 y2的所有值。
我试图适应lm，但是我不确定如何继续处理将来要预测的所有数据点的值，仅求取其他系数就不够了，因为它们都需要可以预测