1、Accord.IO/ExcelReader.cs讀取excel文件，源碼如下：
https://github.com/accord-net/framework/blob/792015d0e2ee250228dfafb99ea0e84d031a29ae/Sources/Accord.IO/ExcelReader.cs
2、繪制數(shù)據(jù)

Imports Accord.Controls Imports Accord.IO Imports Accord.Math Imports Accord.Statistics.Distributions.Univariate Imports Accord.MachineLearning.Bayes Imports SystemPublic Class Form1'貝葉斯分類'使用Accord.IO里的的excel讀取類Dim table As DataTable = New ExcelReader("E:\pro\books\AI_.net\src\AI_learn\learnai-1\data\examples.xls").GetWorksheet("Classification - Yin Yang")Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click'讀取樣本' 轉(zhuǎn)換datatable為輸入輸出數(shù)組Dim inputs As Double()() = table.ToJagged(Of Double)("X", "Y")Dim outputs As Integer() = table.Columns("G").ToArray(Of Integer)()'繪制數(shù)據(jù)ScatterplotBox.Show("樣本數(shù)據(jù)", inputs, outputs).Hold()End SubEnd Class

Imports Accord.Controls Imports Accord.IO Imports Accord.Math Imports Accord.Statistics.Distributions.Univariate Imports Accord.MachineLearning.Bayes Imports SystemPublic Class Form1'貝葉斯分類'使用Accord.IO里的的excel讀取類Dim table As DataTable = New ExcelReader("E:\pro\books\AI_.net\src\AI_learn\learnai-1\data\examples.xls").GetWorksheet("Classification - Yin Yang")Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickNaiveBayes()End SubPrivate Sub NaiveBayes()'讀取樣本' 轉(zhuǎn)換datatable為輸入輸出數(shù)組Dim sample As Double()() = table.ToJagged(Of Double)("X", "Y")Dim outs As Integer() = table.Columns("G").ToArray(Of Integer)()'繪制數(shù)據(jù)ScatterplotBox.Show("樣本數(shù)據(jù)", sample, outs).Hold()'進行訓(xùn)練和預(yù)測Dim trainer As New NaiveBayesLearning(Of NormalDistribution)()Dim nb = trainer.Learn(sample, outs)Dim numberOfClasses As Integer = nb.NumberOfClasses '分類數(shù)目Dim numberOfInputs As Integer = nb.NumberOfInputs '特征數(shù)量Dim predictResult As Integer() = nb.Decide(sample) '進行預(yù)測Label1.Text = numberOfClassesLabel2.Text = numberOfClassesScatterplotBox.Show("實際結(jié)果", sample, outs)ScatterplotBox.Show("貝葉斯預(yù)測結(jié)果", sample, predictResult).Hold()End SubEnd Class

總結(jié)

以上是生活随笔為你收集整理的.net随笔-vb.net Accord.Net机器学习之贝叶斯分类的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。