基于R软件的数据挖掘预测模型代码,CSharp代码库,德仔网

代码语言

代码分类

【CSharp】基于R软件的数据挖掘预测模型

作者:JackWang-CUMT / 发布于2015/8/19/ 597

基于R软件的随机森林算法，构建预测模型，对煤与瓦斯突出类别进行预测。（采用R.NET库进行R和NET通信）


	using System;
	using System.Collections.Generic;
	using System.ComponentModel;
	using System.Data;
	using System.Drawing;
	using System.Linq;
	using System.Text;
	using System.Windows.Forms;
	
	namespace CoalandGasOutburstPredictingByRandomForest
	{
	 using RDotNet;
	
	 public partial class frmMain : Form
	 {
	 // public static REngine engine = null;
	
	 public frmMain()
	 {
	 InitializeComponent();
	
	
	 }
	
	 private void btnSumbit_Click(object sender, EventArgs e)
	 {
	 // REngine.SetDllDirectory(@"C:\Program Files\R\R-2.15.0\bin\i386");
	 if (!string.IsNullOrEmpty(this.txtPram1.Text) && !string.IsNullOrEmpty(this.txtPram2.Text) && !string.IsNullOrEmpty(this.txtPram3.Text) && !string.IsNullOrEmpty(this.txtPram4.Text) && !string.IsNullOrEmpty(this.txtPram5.Text))
	 {
	 REngine engine = REngine.GetInstanceFromID("RDotNet") ?? REngine.CreateInstance("RDotNet");
	 //engine.Initialize();//只能初始化一次
	
	 string strCreateTest = string.Format("test2=data.frame(X1={0},X2={1},X3={2},X4={3},X5={4},Y=0)", double.Parse(this.txtPram1.Text), double.Parse(this.txtPram2.Text), double.Parse(this.txtPram3.Text), double.Parse(this.txtPram4.Text), double.Parse(this.txtPram5.Text));
	 string cmd8 = @"predict(RF.Model,test2[,-6],type='response')";
	
	 engine.Evaluate(strCreateTest);
	
	 IntegerVector index = engine.Evaluate(cmd8).AsInteger();
	
	
	 this.txtOutput.Text = getResult(index[0]);
	 }
	 else
	 {
	 MessageBox.Show("参数不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning);
	 }
	
	
	
	
	
	
	
	
	
	 }
	
	 private void frmMain_Load(object sender, EventArgs e)
	 {
	
	
	 REngine engine = REngine.GetInstanceFromID("RDotNet") ?? REngine.CreateInstance("RDotNet");
	 engine.Initialize();
	 //this.txtOutput.Text = engine.IsRunning.ToString();
	 string RFDir = System.IO.Directory.GetCurrentDirectory().ToString() + "\\model\\RF.Model.RData";
	 // string cmd = @"load(file='C:\\Users\\wm\\Desktop\\RF.Model.RData',envir = parent.frame())";
	 string cmd = string.Format("load(file='{0}',envir = parent.frame())",RFDir.Replace("\\","\\\\"));
	 string cmd2 = @"library(randomForest)";
	 engine.Evaluate(cmd2);
	 engine.Evaluate(cmd);
	 // MessageBox.Show(System.IO.Directory.GetCurrentDirectory().ToString());
	
	 }
	
	 private void frmMain_FormClosed(object sender, FormClosedEventArgs e)
	 {
	 var engine = REngine.GetInstanceFromID("RDotNet");
	 if (engine != null)
	 {
	 engine.Dispose();
	 }
	 }
	 private string getResult(int index)
	 {
	 string res = "NA";
	 if (index == 1)
	 {
	 res = "大型突出";
	 this.txtIndicator.BackColor = System.Drawing.Color.Red;
	 }
	 else if(index==2)
	 {
	 res = "无突出";
	 this.txtIndicator.BackColor = System.Drawing.Color.Green;
	
	 }
	 else if(index==3)
	 {
	 res = "小型突出";
	 this.txtIndicator.BackColor = System.Drawing.Color.Yellow;
	
	 }
	 else if(index==4)
	 {
	 res = "中型突出";
	 this.txtIndicator.BackColor = System.Drawing.Color.Coral;
	
	 }
	 else
	 {
	 res = "未知";
	
	 }
	 return res;
	
	
	 }
	
	 private void btnOpen_Click(object sender, EventArgs e)
	 {
	
	 ofdCSV.CheckFileExists = true;
	 ofdCSV.CheckPathExists = true;
	 if (ofdCSV.ShowDialog() == DialogResult.OK)
	 {
	 string filePath = ofdCSV.FileName;
	 if (System.IO.File.Exists(filePath))
	 {
	 frmImportCsv frmCSV = new frmImportCsv(filePath);
	 frmCSV.Show();
	 }
	 else
	 {
	
	 MessageBox.Show("该文件不存在", "提示", MessageBoxButtons.OK);
	
	 }
	 }
	
	 }
	
	
	
	
	
	
	 }
	}

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　预测模型　　数据挖掘　

同语言下

可能有用的

JackWang-CUMT贡献的其它代码(1)

.基于R软件的数据挖掘预测模型