GitHub24 天
data <- read.csv("data.csv", fileEncoding = "UTF-8")
data[24,8]=predict(fit,newdata = data.frame(data[24,-8]))##对预测的2024年数据进行基于fisher线性判别法的预测 ...