pbootcms网站模板|日韩1区2区|织梦模板||网站源码|日韩1区2区|jquery建站特效-html5模板网

R語言多元Logistic邏輯回歸應用實例

這篇文章主要給大家介紹了關于R語言多元Logistic邏輯回歸應用的相關資料,文中通過示例代碼介紹的非常詳細,對大家的學習或者工作具有一定的參考學習價值,需要的朋友們下面隨著

可以使用逐步過程確定多元邏輯回歸。此函數選擇模型以最小化AIC。

如何進行多元邏輯回歸

可以使用階梯函數通過逐步過程確定多元邏輯回歸。此函數選擇模型以最小化AIC。

通常建議不要盲目地遵循逐步程序,而是要使用擬合統計(AIC,AICc,BIC)比較模型,或者根據生物學或科學上合理的可用變量建立模型。

多元相關是研究潛在自變量之間關系的一種工具。例如,如果兩個獨立變量彼此相關,可能在最終模型中都不需要這兩個變量,但可能有理由選擇一個變量而不是另一個變量。

多元相關

創建數值變量的數據框


 
 
Data.num $ Status = as.numeric(Data.num $ Status)
 
Data.num $ Length = as.numeric(Data.num $ Length)
 
Data.num $ Migr = as.numeric(Data.num $ Migr)
 
Data.num $ Insect = as.numeric(Data.num $ Insect)
 
Data.num $ Diet = as.numeric(Data.num $ Diet)
 
Data.num $ Broods = as.numeric(Data.num $ Broods)
 
Data。 num $ Wood = as.numeric(Data.num $ Wood)
 
Data.num $ Upland = as.numeric(Data.num $ Upland)
 
Data.num $ Water = as.numeric(Data.num $ Water)
 
Data.num $ Release = as.numeric(Data.num $ Release)
 
Data.num $ Indiv = as.numeric(Data.num $ Indiv)
 
###檢查新數據框
 
headtail(Data.num)
 
1 1 1520 9600.0 1.21 1 12 2 6.0 1 0 0 1 6 29
 
2 1 1250 5000.0 0.56 1 0 1 6.0 1 0 0 1 10 85
 
3 1 870 3360.0 0.07 1 0 1 4.0 1 0 0 1 3 8
 
77 0 170 31.0 0.55 3 12 2 4.0 NA 1 0 0 1 2
 
78 0 210 36.9 2.00 2 8 2 3.7 1 0 0 1 1 2
 
79 0 225 106.5 1.20 2 12 2 4.8 2 0 0 0 1 2
 
###檢查變量之間的相關性
 
###這里使用了Spearman相關性

多元邏輯回歸的例子

在此示例中,數據包含缺失值。在R中缺失值用NA表示。SAS通常會無縫地處理缺失值。雖然這使用戶更容易,但可能無法確保用戶了解這些缺失值的作用。在某些情況下,R要求用戶明確如何處理缺失值。處理多元回歸中的缺失值的一種方法是從數據集中刪除具有任何缺失值的所有觀察值。這是我們在逐步過程之前要做的事情,創建一個名為Data.omit的數據框。但是,當我們創建最終模型時,我們只想排除那些在最終模型中實際包含的變量中具有缺失值的觀察。為了測試最終模型的整體p值,繪制最終模型,或使用glm.compare函數,我們將創建一個名為Data.final的數據框,只排除那些觀察結果。

盡管二項式和poission系列中的模型應該沒問題,但是對于使用某些glm擬合的步驟過程存在一些注意事項。

用逐步回歸確定模型

最終模型


summary(model.final)
 
 
Coefficients:
 
       Estimate Std. Error z value Pr(>|z|)  
 
(Intercept) -3.5496482 2.0827400 -1.704 0.088322 . 
 
Upland   -4.5484289 2.0712502 -2.196 0.028093 * 
 
Migr    -1.8184049 0.8325702 -2.184 0.028956 * 
 
Mass     0.0019029 0.0007048  2.700 0.006940 **
 
Indiv    0.0137061 0.0038703  3.541 0.000398 ***
 
Insect    0.2394720 0.1373456  1.744 0.081234 . 
 
Wood     1.8134445 1.3105911  1.384 0.166455  

偽R方


$Pseudo.R.squared.for.model.vs.null
 
               Pseudo.R.squared
 
McFadden               0.700475
 
Cox and Snell (ML)          0.637732
 
Nagelkerke (Cragg and Uhler)     0.833284

模型總體p值

在最終模型中創建包含變量的數據框,并省略NA。

偏差表分析


Analysis of Deviance Table
 
 
 
Model 1: Status ~ Upland + Migr + Mass + Indiv + Insect + Wood
 
Model 2: Status ~ 1
 
 Resid. Df Resid. Dev Df Deviance Pr(>Chi)  
 
1    63   30.392             
 
2    69   93.351 -6 -62.959 1.125e-11 ***

似然比檢驗


Likelihood ratio test
 
 
 
 #Df LogLik Df Chisq Pr(>Chisq)  
 
1  7 -15.196            
 
2  1 -46.675 -6 62.959 1.125e-11 ***

標準化殘差圖

簡單的預測值圖

在最終模型中創建包含變量的數據框,并在NA中省略

過度離散檢驗

過度離散是glm的deviance殘差相對于自由度較大的情況。這些值顯示在模型的摘要中。一個指導原則是,如果deviance殘差與剩余自由度的比率超過1.5,則模型過度離散。過度離散表明模型不能很好地擬合數據:解釋變量可能無法很好地描述因變量,或者可能無法為這些數據正確指定模型。如果存在過度離散,一種可能的解決方案是 在glm中使用quasibinomial family選項。


Null deviance: 93.351 on 69 degrees of freedom
 
Residual deviance: 30.392 on 63 degrees of freedom
 
deviance /  df.residual
 
 
 
[1] 0.482417

評估模型的替代方法

使用逐步程序的替代或補充是將模型與擬合統計進行比較。我的compare.glm 函數將為glm模型顯示AIC,AICc,BIC和偽R平方。使用的模型應該都擬合相同的數據。也就是說,如果數據集中的不同變量包含缺失值,則應該謹慎使用。如果您對使用哪種擬合統計數據沒有任何偏好,您希望在最終模型中使用較少的術語,我可能會推薦AICc或BIC。

一系列模型可以與標準的anova 功能進行比較。模型應嵌套在先前模型中或anova函數列表中的下一個模型中; 和模型應該擬合相同的數據。在比較多個回歸模型時,通常放寬p值為0.10或0.15。

在以下示例中,使用通過逐步過程選擇的模型。請注意,雖然模型9最小化了AIC和AICc,但模型8最小化了BIC。anova結果表明模型8不是對模型7的顯著改進。這些結果支持選擇模型7,8或9中的任何一個。  


compareGLM(model.1, model.2, model.3, model.4, model.5, model.6,
      model.7, model.8, model.9)
 
 
 
$Models
 
 Formula                         
 
1 "Status ~ 1"                       
 
2 "Status ~ Release"                    
 
3 "Status ~ Release + Upland"                
 
4 "Status ~ Release + Upland + Migr"            
 
5 "Status ~ Release + Upland + Migr + Mass"        
 
6 "Status ~ Release + Upland + Migr + Mass + Indiv"    
 
7 "Status ~ Release + Upland + Migr + Mass + Indiv + Insect"
 
8 "Status ~ Upland + Migr + Mass + Indiv + Insect"     
 
9 "Status ~ Upland + Migr + Mass + Indiv + Insect + Wood" 
 
 
 
$Fit.criteria
 
 Rank Df.res  AIC AICc  BIC McFadden Cox.and.Snell Nagelkerke  p.value
 
1  1   66 94.34 94.53 98.75  0.0000    0.0000   0.0000    Inf
 
2  2   65 62.13 62.51 68.74  0.3787    0.3999   0.5401 2.538e-09
 
3  3   64 56.02 56.67 64.84  0.4684    0.4683   0.6325 3.232e-10
 
4  4   63 51.63 52.61 62.65  0.5392    0.5167   0.6979 7.363e-11
 
5  5   62 50.64 52.04 63.87  0.5723    0.5377   0.7263 7.672e-11
 
6  6   61 49.07 50.97 64.50  0.6118    0.5618   0.7588 5.434e-11
 
7  7   60 46.42 48.90 64.05  0.6633    0.5912   0.7985 2.177e-11
 
8  6   61 44.71 46.61 60.14  0.6601    0.5894   0.7961 6.885e-12
 
9  7   60 44.03 46.51 61.67  0.6897    0.6055   0.8178 7.148e-12
 
 
Analysis of Deviance Table
 
 
 
Model 1: Status ~ 1
 
Model 2: Status ~ Release
 
Model 3: Status ~ Release + Upland
 
Model 4: Status ~ Release + Upland + Migr
 
Model 5: Status ~ Release + Upland + Migr + Mass
 
Model 6: Status ~ Release + Upland + Migr + Mass + Indiv
 
Model 7: Status ~ Release + Upland + Migr + Mass + Indiv + Insect
 
Model 8: Status ~ Upland + Migr + Mass + Indiv + Insect
 
Model 9: Status ~ Upland + Migr + Mass + Indiv + Insect + Wood
 
 
 
 Resid. Df Resid. Dev Df Deviance Pr(>Chi)  
 
1    66   90.343            
 
2    65   56.130 1  34.213 4.94e-09 ***
 
3    64   48.024 1  8.106 0.004412 **
 
4    63   41.631 1  6.393 0.011458 * 
 
5    62   38.643 1  2.988 0.083872 . 
 
6    61   35.070 1  3.573 0.058721 . 
 
7    60   30.415 1  4.655 0.030970 * 
 
8    61   30.710 -1  -0.295 0.587066  
 
9    60   28.031 1  2.679 0.101686

總結

到此這篇關于R語言多元Logistic邏輯回歸應用的文章就介紹到這了,更多相關R語言多元邏輯回歸內容請搜索html5模板網以前的文章希望大家以后多多支持html5模板網!

【網站聲明】本站部分內容來源于互聯網,旨在幫助大家更快的解決問題,如果有圖片或者內容侵犯了您的權益,請聯系我們刪除處理,感謝您的支持!

相關文檔推薦

主站蜘蛛池模板: 设定时间记录电子秤-自动累计储存电子秤-昆山巨天仪器设备有限公司 | 踏板力计,制动仪,非接触多功能速度仪,逆反射系数测试仪-创宇 | 河南新乡德诚生产厂家主营震动筛,振动筛设备,筛机,塑料震动筛选机 | 鲸鱼视觉 -数字展厅多媒体互动展示制作公司 | 气弹簧定制-气动杆-可控气弹簧-不锈钢阻尼器-工业气弹簧-可调节气弹簧厂家-常州巨腾气弹簧供应商 | Jaeaiot捷易科技-英伟达AI显卡模组/GPU整机服务器供应商 | ?水马注水围挡_塑料注水围挡_防撞桶-常州瑞轩水马注水围挡有限公司 | 铁盒_铁罐_马口铁盒_马口铁罐_铁盒生产厂家-广州博新制罐 | 伺服电机_直流伺服_交流伺服_DD马达_拓达官方网站 | 小型玉石雕刻机_家用玉雕机_小型万能雕刻机_凡刻雕刻机官网 | 北京网络营销推广_百度SEO搜索引擎优化公司_网站排名优化_谷歌SEO - 北京卓立海创信息技术有限公司 | 衬塑管道_衬四氟管道厂家-淄博恒固化工设备有限公司 | 应急灯_消防应急灯_应急照明灯_应急灯厂家-大成智慧官网 | 江苏全风,高压风机,全风环保风机,全风环形高压风机,防爆高压风机厂家-江苏全风环保科技有限公司(官网) | 半自动预灌装机,卡式瓶灌装机,注射器灌装机,给药器灌装机,大输液灌装机,西林瓶灌装机-长沙一星制药机械有限公司 | 六维力传感器_六分量力传感器_模腔压力传感器-南京数智微传感科技有限公司 | 耐破强度测试仪-纸箱破裂强度试验机-济南三泉中石单品站 | 小程序开发公司-小程序制作-微信小程序开发-小程序定制-咏熠软件 | 匀胶机旋涂仪-声扫显微镜-工业水浸超声-安赛斯(北京)科技有限公司 | 聚合氯化铝_喷雾聚氯化铝_聚合氯化铝铁厂家_郑州亿升化工有限公司 | 塑料脸盆批发,塑料盆生产厂家,临沂塑料广告盆,临沂家用塑料盆-临沂市永顺塑业 | 电销卡_稳定企业大语音卡-归属地可选-世纪通信 | 广州中央空调回收,二手中央空调回收,旧空调回收,制冷设备回收,冷气机组回收公司-广州益夫制冷设备回收公司 | 合肥通道闸-安徽车牌识别-人脸识别系统厂家-安徽熵控智能技术有限公司 | 全温恒温摇床-水浴气浴恒温摇床-光照恒温培养摇床-常州金坛精达仪器制造有限公司 | 双能x射线骨密度检测仪_dxa骨密度仪_双能x线骨密度仪_品牌厂家【品源医疗】 | 车件|铜件|车削件|车床加工|五金冲压件-PIN针,精密车件定制专业厂商【东莞品晔】 | PVC地板|PVC塑胶地板|PVC地板厂家|地板胶|防静电地板-无锡腾方装饰材料有限公司-咨询热线:4008-798-128 | 深圳货架厂家_金丽声精品货架_广东金丽声展示设备有限公司官网 | 100_150_200_250_300_350_400公斤压力空气压缩机-舰艇航天配套厂家 | 氟塑料磁力泵-不锈钢离心泵-耐腐蚀化工泵厂家「皖金泵阀」 | 金环宇|金环宇电线|金环宇电缆|金环宇电线电缆|深圳市金环宇电线电缆有限公司|金环宇电缆集团 | loft装修,上海嘉定酒店式公寓装修公司—曼城装饰| 温湿度记录纸_圆盘_横河记录纸|霍尼韦尔记录仪-广州汤米斯机电设备有限公司 | 厂房出售_厂房仓库出租_写字楼招租_土地出售-中苣招商网-中苣招商网 | 屏蔽泵厂家,化工屏蔽泵_维修-淄博泵业 | 合肥网带炉_安徽箱式炉_钟罩炉-合肥品炙装备科技有限公司 | 风信子发稿-专注为企业提供全球新闻稿发布服务 | 学考网学历中心| 宝元数控系统|对刀仪厂家|东莞机器人控制系统|东莞安川伺服-【鑫天驰智能科技】 | 电主轴-高速精密电主轴-高速电机厂家-瑞德沃斯品牌有限公司 |