多元相关与回归分析及R使用

本文的所有信息均来源于王斌会老师在大学慕课的课件,在这里写个笔记记录一下。

变量间的关系及分析方法

变量间的关系.png

两变量线性相关分析

步骤:计算样本相关系数,然后做检验假设。
变量X,Y
R语言使用
求相关系数cor(X,Y,,method=(“pearson”,"kendall","spearman")
统计方法默认为pearson。
做假设检验cor.test(X,Y)#相关系数的假设检验

两变量线性回归分析

步骤:建立回归模型,求解回归模型的参数,对回归模型进行检验。
变量X,Y,X为自变量
R语言使用
拟合模型:lm(Y~X,data=所用的数据)
检验模型:anova(fm)#模型方差分析
summary(fm)#回归系数t检验

广义与一般线性模型

变量的取值类型.png

模型选择方式:根据x,y的取值类型来选择模型


模型选择方式.png

广义线性模型

概述:在广义线性模型中,均假定观察值y具有指数族。


广义线性模型中常用的分步族.png

R语言使用
glm(formula,family=gaussian,data,..)
formula为公式,即为要拟合的模型,family为分布族,包括正态分布(gaussian)、二项分布(binomial)、泊松分布(poission)和伽马分布(gamma),分布族还可以通过选项link=来指定使用的连接函数,data为可选择的数据框。
实例:对45名驾驶员的调查结果,其中四个变量的含义为
x1:表示视力状况,分类变量,1表示好,0表示有问题
x2:年龄,数值型
x3:驾车教育,分类变量,1参加过驾车教育,0我驾车教育。
y:分类变量,去年是否出过事故,1有,0无。

>dat=read.table()#读取数据
>glm(y~x1+x2+x3,family=binomial,data=dat)#logistic模型
>summary(logit)#logistic模型结果

得出的结果中没有对整体结果做出检验,只对某个回归系数做出检验。如何对整体做检验?待查
在做logistic检验中通过需要筛选出那些有统计意义的变量,那么就可以用下面的函数进行筛选了。

>logit.step=step(logit)#逐步筛选法变量选择
》summary(logit.step)#筛选后结果展示,只保留有统计意义的变量

一般线性模型

实例:设有3台机器,用来生产规格相同的铝合金薄板,现从3台机器生产出的薄板个随机抽取6块,测出厚度,见下表,是分析各机器生产的薄板厚度有无显著差异。


测量数据

对表格的数据进行处理,y代表各个测量值,A表示各个机器


处理后的数据

R语言使用:
>dat=read.table()#读取数据
>anova(lm(y~factor(A),data=dat))#完全随机设计方差分析,若p<0.05,则表示各个机器间生产的薄板厚度有差别。

实例:
使用4种燃料,3中推荐器做火箭射程实验,每一种组合情况做一个实验,试分析各种燃料A与各种推进器B对火箭射程有无显著影响。


实验数据

对数据进行处理


处理后的数据

R语言使用
>dat=read.table()
>anova(lm(y~factor(A)+factor(B),data+dat))

对数线性模型

poisson分布族模型和拟poisson分布族模型的使用方法
glm(formula,family=poisson,data,...)
glm(formula,family=poisson(link=log),data,...)
欲了解顾客对其产品是否满意,同时还想了解不同收入的人群对其产品的满意程度是否相同。


数据

y表示频数,x1表示收入人群,x2表示满意程度


数据处理后

建立poisson对数模型
>d=rea.table()#读取数据
>log=glm(y~x1+x2,family=poisson,data=d)#对数线性模型
summary(log)#检验结果
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 217,509评论 6 504
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 92,806评论 3 394
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 163,875评论 0 354
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 58,441评论 1 293
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 67,488评论 6 392
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 51,365评论 1 302
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 40,190评论 3 418
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 39,062评论 0 276
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 45,500评论 1 314
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 37,706评论 3 335
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 39,834评论 1 347
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 35,559评论 5 345
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 41,167评论 3 328
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 31,779评论 0 22
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 32,912评论 1 269
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 47,958评论 2 370
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 44,779评论 2 354

推荐阅读更多精彩内容