R_回归类算法实现_待完善

【待完善】

NN model

nn.model <- monmlp.fit(as.matrix(train[,-24]), as.matrix(train[,24]), 
                       hidden1=10, n.ensemble=10, monotone=1, bag=TRUE)
pred <- monmlp.predict(x = as.matrix(vali[,-24]),weights = nn.model)
sum(abs(vali$total_cases - pred)) / dim(vali)[1]