回归分析和BP神经网络模型练习.docxVIP

回归分析和神经网络模型练习——基于 R语言 ## 设置工作路径 setwd( D:\\LuckyDog ) # 读取数据 Data - read.csv (R 语言数据 .csv , header = FALSE, , stringsAsFactors  = FALSE)[ c(- 1, - 2), ] colnames( Data) - c( Time , SSE , Growth , IR ,CPI , M2 , M1 , X ,M , FDI , REER, Foreign ) Time - paste0( substr ( Data$Time, 1, 4) , . , substr ( Data$Time, 6, 7)) temp - apply (Data[ , - 1] , 2, as.numeric ) Data - as.data.frame ( temp) rownames( Data) - Time # 保存数据（时间轴有小问题，对数据没有影响）write.csv (Data, RData.csv , row.names = TRUE) ## 检查变量间的相关性require (corrgram ) require (car ) options (digits