代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
CSharp
】
基于R软件的数据挖掘预测模型
作者:
JackWang-CUMT
/ 发布于
2015/8/19
/
810
基于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); } } } } }
试试其它关键字
预测模型
数据挖掘
同语言下
.
文件IO 操作类库
.
Check图片类型[JPEG(.jpg 、.jpeg),TIF,GIF,BMP,PNG,P
.
机器名和IP取得(IPV4 IPV6)
.
Tiff转换Bitmap
.
linqHelper
.
MadieHelper.cs
.
RegHelper.cs
.
如果关闭一个窗体后激活另一个窗体的事件或方法
.
创建日志通用类
.
串口辅助开发类
可能有用的
.
C#实现的html内容截取
.
List 切割成几份 工具类
.
SQL查询 多列合并成一行用逗号隔开
.
一行一行读取txt的内容
.
C#动态修改文件夹名称(FSO实现,不移动文件)
.
c# 移动文件或文件夹
.
c#图片添加水印
.
Java PDF转换成图片并输出给前台展示
.
网站后台修改图片尺寸代码
.
处理大图片在缩略图时的展示
JackWang-CUMT
贡献的其它代码
(
1
)
.
基于R软件的数据挖掘预测模型
Copyright © 2004 - 2024 dezai.cn. All Rights Reserved
站长博客
粤ICP备13059550号-3