判別分析及R使用Part3-貝葉斯判別

先回顧下貝葉斯定理:
P(A|B) = \frac{P(B|A)P(A)}{P(B)}

  • P(A)表示事件A出現(xiàn)的概率.
  • P(B|A條件概率的符號(hào),表示事件A發(fā)生的條件下,事件B發(fā)生的概率,也被稱為似然度
  • P(A|B)也是條件概率的符號(hào),表示事件B發(fā)生的條件下,事件A發(fā)生的概率,也被稱為后驗(yàn)概率往弓。

Bayes判別準(zhǔn)則

  • Fisher判別缺點(diǎn):判別方法與各總體出現(xiàn)的概率無關(guān),與錯(cuò)判后造成的損失無關(guān)蓄氧。
  • Bayes判別準(zhǔn)則:以個(gè)體歸屬某類的概率(或判別值)最大錯(cuò)判總平均數(shù)損失最小*為標(biāo)準(zhǔn)函似。

在這里我不想討論復(fù)雜的數(shù)學(xué)公式,因?yàn)槲疫€沒搞明白喉童,直接跳到在R語言中怎么用吧撇寞!例子還是之前的例子:

表6.3.png

20個(gè)電視機(jī),5種暢銷堂氯,8種平銷蔑担,7種滯銷,試建立判別函數(shù)祖灰,當(dāng)一新產(chǎn)品其質(zhì)量評(píng)分為8.0钟沛,功能評(píng)分為7.5,銷售價(jià)格為65元局扶,問該廠產(chǎn)品的銷售前景如何恨统?用起來其實(shí)很簡單,還是用lda()函數(shù)三妈,使用prior參數(shù)指定先驗(yàn)概率即可:

> library(MASS)
> d6.3 <- read.xlsx("/home/my/桌面/MOOC/多元統(tǒng)計(jì)分析/mvstats5.xlsx",sheet="d6.3")
> d6.3
     Q   C  P G3
1  8.3 4.0 29  1
2  9.5 7.0 68  1
3  8.0 5.0 39  1
4  7.4 7.0 50  1
5  8.8 6.5 55  1
6  9.0 7.5 58  2
7  7.0 6.0 75  2
8  9.2 8.0 82  2
9  8.0 7.0 67  2
10 7.6 9.0 90  2
11 7.2 8.5 86  2
12 6.4 7.0 53  2
13 7.3 5.0 48  2
14 6.0 2.0 20  3
15 6.4 4.0 39  3
16 6.8 5.0 48  3
17 5.2 3.0 29  3
18 5.8 3.5 32  3
19 5.5 4.0 34  3
20 6.0 4.5 36  3
> attach(d6.3)
> ld42 <- lda(G3~Q+C+P,prior=c(5,8,7)/20)
> ld42
Call:
lda(G3 ~ Q + C + P, prior = c(5, 8, 7)/20)

Prior probabilities of groups:
   1    2    3 
0.25 0.40 0.35 

Group means:
         Q        C      P
1 8.400000 5.900000 48.200
2 7.712500 7.250000 69.875
3 5.957143 3.714286 34.000

Coefficients of linear discriminants:
          LD1         LD2
Q -0.81173396  0.88406311
C -0.63090549  0.20134565
P  0.01579385 -0.08775636

Proportion of trace:
   LD1    LD2 
0.7403 0.2597 
> Z1 <- predict(ld42)
> T1 <- table(G3,Z1$class)
> T1
   
G3  1 2 3
  1 5 0 0
  2 1 6 1
  3 0 0 7
> sum(diag(T1))/sum(T1)  ##計(jì)算正確率
[1] 0.9
> predict(ld42,data.frame(Q=8,C=7.5,P=65)) ##預(yù)測(cè)
$class
[1] 2
Levels: 1 2 3

$posterior
          1        2           3
1 0.2114514 0.786773 0.001775594

$x
        LD1        LD2
1 -1.537069 -0.1367865

小結(jié)

本章最后教授給出了總結(jié):

  1. 判別分析方法是按已知所屬組的樣本確定判別函數(shù),制定判別規(guī)則,然后再判斷每一個(gè)新樣品應(yīng)屬于哪一類畜埋。
  2. 常用的判別方法有Fisher判別、距離判別畴蒲、貝葉斯判別等,每個(gè)方法根據(jù)其出發(fā)點(diǎn)不同各有其特點(diǎn)悠鞍。
  3. Fisher類判別對(duì)判別變量的分布類型并無要求,而Bayes類判別要變量的分布類型。因此,Fisher類判別較Bayes類判別簡單一些模燥。
  4. 當(dāng)兩個(gè)總體時(shí),若它們的協(xié)方差矩陣相同,則距離判別和Fisher判別等價(jià)咖祭。當(dāng)變量服從正態(tài)分布時(shí),它們還和Bayes判別等價(jià)。
  5. 判別分析中的各種誤判的后果允許看作是相同的,通常將犯第一類錯(cuò)誤的后果看得更嚴(yán)重些,但本章對(duì)此關(guān)注的不夠蔫骂。
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末么翰,一起剝皮案震驚了整個(gè)濱河市,隨后出現(xiàn)的幾起案子辽旋,更是在濱河造成了極大的恐慌浩嫌,老刑警劉巖檐迟,帶你破解...
    沈念sama閱讀 206,013評(píng)論 6 481
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場離奇詭異码耐,居然都是意外死亡追迟,警方通過查閱死者的電腦和手機(jī),發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 88,205評(píng)論 2 382
  • 文/潘曉璐 我一進(jìn)店門骚腥,熙熙樓的掌柜王于貴愁眉苦臉地迎上來敦间,“玉大人,你說我怎么就攤上這事束铭∶柯鳎” “怎么了?”我有些...
    開封第一講書人閱讀 152,370評(píng)論 0 342
  • 文/不壞的土叔 我叫張陵纯露,是天一觀的道長。 經(jīng)常有香客問我代芜,道長埠褪,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 55,168評(píng)論 1 278
  • 正文 為了忘掉前任挤庇,我火速辦了婚禮钞速,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘嫡秕。我一直安慰自己渴语,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 64,153評(píng)論 5 371
  • 文/花漫 我一把揭開白布昆咽。 她就那樣靜靜地躺著驾凶,像睡著了一般。 火紅的嫁衣襯著肌膚如雪掷酗。 梳的紋絲不亂的頭發(fā)上调违,一...
    開封第一講書人閱讀 48,954評(píng)論 1 283
  • 那天,我揣著相機(jī)與錄音泻轰,去河邊找鬼技肩。 笑死,一個(gè)胖子當(dāng)著我的面吹牛浮声,可吹牛的內(nèi)容都是我干的虚婿。 我是一名探鬼主播,決...
    沈念sama閱讀 38,271評(píng)論 3 399
  • 文/蒼蘭香墨 我猛地睜開眼泳挥,長吁一口氣:“原來是場噩夢(mèng)啊……” “哼然痊!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起羡洁,我...
    開封第一講書人閱讀 36,916評(píng)論 0 259
  • 序言:老撾萬榮一對(duì)情侶失蹤玷过,失蹤者是張志新(化名)和其女友劉穎,沒想到半個(gè)月后,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體辛蚊,經(jīng)...
    沈念sama閱讀 43,382評(píng)論 1 300
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡粤蝎,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 35,877評(píng)論 2 323
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了袋马。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片初澎。...
    茶點(diǎn)故事閱讀 37,989評(píng)論 1 333
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖虑凛,靈堂內(nèi)的尸體忽然破棺而出碑宴,到底是詐尸還是另有隱情,我是刑警寧澤桑谍,帶...
    沈念sama閱讀 33,624評(píng)論 4 322
  • 正文 年R本政府宣布延柠,位于F島的核電站,受9級(jí)特大地震影響锣披,放射性物質(zhì)發(fā)生泄漏贞间。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 39,209評(píng)論 3 307
  • 文/蒙蒙 一雹仿、第九天 我趴在偏房一處隱蔽的房頂上張望增热。 院中可真熱鬧,春花似錦胧辽、人聲如沸峻仇。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,199評(píng)論 0 19
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽摄咆。三九已至,卻和暖如春奠骄,著一層夾襖步出監(jiān)牢的瞬間豆同,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 31,418評(píng)論 1 260
  • 我被黑心中介騙來泰國打工含鳞, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留影锈,地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 45,401評(píng)論 2 352
  • 正文 我出身青樓蝉绷,卻偏偏與公主長得像鸭廷,于是被迫代替她去往敵國和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子熔吗,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 42,700評(píng)論 2 345

推薦閱讀更多精彩內(nèi)容