非参课堂实验不同群体设计不同特性的相机产品

非参大作业：针对不同群体设计不同特性的相机产品组长略文献简述及初步探索李克特量表1、总体分布情况图1度量C01-C05,c11-c16的得分情况，将每一份问卷的得分相加，得到总分score,整体情况如图1.从图中可以看出，量表总分绝大部分分布在“普通”(3x11=33)右侧，即群体态度倾向于积极。群体量表总分均值为41,标准差为5.616133。(Rcode1)2、因子分析TotalVarianceExplainedComponentInitialEigenvaluesExtractionSumsofSquaredLoadingsRotationSumsofSquaredLoadingsTotal%ofVarianceCumulative%Total%ofVarianceCumulative%Total%ofVarianceCumulative%14.29939.07839.0784.29939.07839.0783.54732.24232.24221.40812.79851.8761.40812.79851.8762.05618.68750.92931.0879.87961.7541.0879.87961.7541.19110.82561.7544.8818.00869.7625.7987.25677.0186.7116.46583.4827.5454.95488.4368.4664.23592.6719.4003.63496.30510.2932.66798.97211.1131.028100.000ExtractionMethod:PrincipalComponentAnalysis.3、分类情况概览(用rpart包做决策树)(Rcode2)为了解对不同相机特性的重视程度和职业的关系，抽样420个数据记录作为训练集，用剩下449个数据记录作为测试集，进行了回归树分析，得到的初步分类为下图所示：测试的结果为：table(predict(kyphosis,kyphosis1,type=class),cameratsamp,19)1234115181210241111675635222010410201715误分率为64%从决策树中可以大致看出每种职业的偏好特点情况： 1代表学生：学生群体的特点：往往处在左向树枝的末端，意味着学生往往对于相机的各个参数都很看重，属于非常敏感的群体； 2代表企业大经理：企业大经理的位置分布较广，可以认为群体内的差异比较大，没有非常统一的敏感特点； 3代表一般行政：这个群体比较明显的一个特征是，有一部分人非常看重定时拍摄，但对任意角度拍摄并不敏感 4代表专业技术：该群体在下图的最右支这部分人群较为重视相机可上网的功能，这一点比较值得关注。下表为全数据进行得回归树分析：(Rcode3)描述统计不同职业的人对外观的重视程度1、轻薄短小，携带方便2、新潮、很绚3、多样化颜色4、搭配流行的造型图案在外观的选择上，不同职业人群的偏好大体相同。其中，对“新潮、很炫”这一外观特性普遍持重视态度，而对其它外观特征，持普通和重视态度的人群比例大体相同并且均较高。二、不同职业的人对功能的重视程度1、 简单的操作方式，只要按一个键就能拍摄2、 连动拍摄（1秒20张）3、 任意角度拍摄4、 定时拍摄5、 可更换镜头6、 可接三角架7、 可上网在功能的选择上，不同职业人群的偏好也大体相同。其中，对“操作简单、联动拍摄、任意角度拍摄”这三种功能特性普遍持相当重视的态度，而对其它四种功能特征，持普通态度的人群比例最高。3、 不同性别对相机外观的重视程度1、轻薄短小，携带方便2、新潮、很绚3、多样化颜色4、搭配流行的造型图案对外观选择方面，男女偏好大体一致。其中，两者均对“新潮、很炫”这一外观特性持重视态度，其他三个方面的外观特性持普通与重视态度的人群比例大致相同且均较高。4、 不同性别对相机功能的重要程度1、 简单的操作方式，只要按一个键就能拍摄2、 连动拍摄（1秒20张）3、 任意角度拍摄4、 定时拍摄5、 可更换镜头6、 可接三角架7、 可上网在功能的选择上，不同性别的人群偏好也大体相同。其中，对“操作简单、联动拍摄、任意角度拍摄”这三种功能特性普遍持相当重视的态度，而对其它四种功能特征，持普通态度和重视态度的人群比例均较高。5、 不同性别对价格的可接受程度对价格的可接受程度，男性普遍能接受较高价格，而女性倾向于较低价格。其中，男性能接受的价格集中在1000-3000左右，而女性能接受的价格集中在2000以下。6、 不同职业对价格的可接受程度对价格的可接受程度，不同职业的人群有较大差异。其中，专业技术人员能接受的价格最高；一般行政人员和企业大堂经理能接受的价格最低，基本集中在2000以内；学生的可接受价格处于中间水平，普遍集中在1000-2000元之间。综上所述，不同职业和不同性别的人群对相机外观和功能的偏好大致相同。其中，在外观上，人们普遍对“新潮、很炫”比较看重；在功能上，人们普遍对“操作简单、联动拍摄、任意角度拍摄”相当重视。在价格的可接受程度上，不同职业和不同性别的人群有较大差异。其中，性别方面，男性可接受的价格高于女性；职业方面，专业技术人员可接受的价格最高，其次为学生，一般行政人员和企业大堂经理可接受价格最低。不同职业的人对于相机各属性重视程度的比较由之前的描述统计结果可以看到男女对于相机属性的偏好各不相同，因此为了更好的了解不同职业的人偏好的不同，我们首先将总体分男女进行区分，然后分别对男性和女性不同职业的人群做其对不同相机属性重视程度的Ridit检验。H0:所考察人群对于各属性的重视程度无轻重之分H1:所考察人群对于各属性的重视程度有轻重之分不同职业人群对于携带方便特性（C01）的重视程度列联表（男性）重视度职业非常小重视不重视普通重视非常重视学生01750企业大堂经理73512512039一般行政426736921专业技术11982不同职业人群对于携带方便特性（C01）的重视程度列联表（女性）丁重视度职业非常小重视不重视普通重视非常重视学生42458527企业大堂经理00020一般行政00871专业技术425624616不同职业人群对于携带方便特性（C01）的重视程度Ridit值95%置信区间图（左男右女下整体）不同职业人群对于新潮特性（C02）的重视程度Ridit95%值置信区间图（左男右女下整体）不同职业人群对于不同职业人群对于多样化颜色特性（C03）的重视程度Ridit值95%置信区间图（左男右女下整体）流行造型图案特性（C04）的重视程度Ridit值95%置信区间图（左男右女下整体）不同职业人群对于简单操作方式特性（C05）的重视程度Ridit值95%置信区间图（左男右女下整体）不同职业人群对于不同职业人群对于连动拍摄特性（C11）的重视程度Ridit值95%置信区间图（左男右女下整体）任意角度拍摄特性（C12）的重视程度Ridit值95%置信区间图（左男右女下整体）不同职业人群对于定时拍摄特性（C13）的重视程度Ridit值95%置信区间图（左男右女下整体）不同职业人群对于可更换镜头特性（C14）的重视程度Ridit值95%置信区间图（左男右女下整体）不同职业人群对于可接三角架特性（C15）的重视程度Ridit值95%置信区间图（左男右女下整体）不同职业人群对于可上网特性（C16）的重视程度Ridit值95%置信区间图（左男右女下整体）汇总表如下：属性男女整体C02对职业一重要性低对职业一重要性低C11对职业二重要性高对职业二重要性低对职业二重要性高C12对职业二重要性高对职业二重要性低对职业二重要性高C13对职业二重要性高对职业二重要性低对职业二重要性高，职业四重要性低C14对职业二重要性高对职业二重要性低C15对职业二重要性高对职业二重要性低对职业二重要性高C16对职业二重要性高对职业二重要性低对职业二重要性低不同职业人群对相机属性重视程度的关联规则分析关联规则先对数据处理整理成2元数据，只选取了其中部分变量如下：c01c02c03c04c05c11c12c13c14c15c16其中c01到c16为对相机的特性重视程度，包括外观和性能，处理办法是把重视和非常重视设为1,普通，不重视和非常不重视设为0di为性别转化后0表示男性1表示女性transaction形式cameranew1=as.matrix(cameranew1);trans2-as(cameranew1,transactions);转化后数据情况大致如下summary(trans2)从中大概可以看出最受重视的因素有c12，c11，c05，c02，这点从下面的频率图中也可以看出itemFrequencyPlot(trans2,support=0.05,cex.names=0.8)#图3.1分性别：按lift由大到小排序的。可以看出女性依次更重视c03，c01，c13，c05，c15，c12，c04，c02这些提升度均大于1，意味着女性倾向于重视这些因素。但有意思的是d1c14和d1到c15的提升度是小于1的，也就意味着没有先验信息是重视c14和c16的概率要大于女性重视这两个因素的比例，所以针对女性相机这两个特性可以不做重点宣传和打造的。分职业：将总体按照职业的不同分为四大类，分别对于相机外观和配置供11个属性进行关联分析，根据提升度这一指标分析不同人群重视相机属性的关联效应。这对于相机厂商针对目标人群的相机整体设计具有指导意义。取支持度大于0.5，置信度在0.95以上，提升度在1.1以上的关联项输出如下：学生：企业大堂经理：一般行政：专业技术：结论描述统计阶段的分析表明：在相机外观和功能方面，不同职业和不同性别的人群的重视程度有细微差别。其中，在外观上，人们普遍对“新潮、很炫”比较看重；在功能上，人们普遍对“操作简单、联动拍摄、任意角度拍摄”相当重视。在价格的可接受程度上，不同职业和不同性别的人群有较大差异。其中，性别方面，男性可接受的价格高于女性；职业方面，专业技术人员可接受的价格最高，其次为学生，一般行政人员和企业大堂经理可接受价格最低。Rdit检验结果表明：于学生来说，对不太重视轻薄短小，携带方便这一特性，其他特性的显着性没有通过对于企业大堂经理来说，c11到c15的特性重视度都很高，及可以针对此人群设计连动拍摄（1秒20张）、任意角度拍摄、定时拍摄、可更换镜头和可接三角架性能好的相机。对于一般行政人员来说，男性的特点是对可更换镜头比较重视，女性一般行政人员从结果上看对很多特性都不是很重视，针对以上这些可以对男性一般行政人员设计可更换镜头较好的相机，对女性一般行政人员设计一般化产品即可。对于专业技术人员来说，上述检验没有检验出很多显着的特点，需要注意的是专业技术人员对定时拍摄重视度低，所以针对这类人群的相机定时拍摄功能一般化即可。总的来看，人们对于相机属性的重视度的关联主要集中于相机的技术配置，而不是外观关联规则结果表明：于学生来说，重视“定时拍对摄”特性的同时也会同时重视“连动拍摄”和“任意角度拍摄”，同时注意到“连动拍摄”和“任意角度拍摄”特性也是相互关联的，因此针对此类人群的同一产品中这三个特性最好兼顾对于企业大堂经理来说，属性间的关联因素很多，较为明显的有“连动拍摄”、“任意角度拍摄”、“定时拍摄”间，以及“任意角度拍摄”、“定时拍摄”同“可更换镜头”、“可接三角架”之间的关联，说明以上五个属性最好同时在针对此类人群的设计中体现对于一般行政人员来说，“连动拍摄”属性和“任意角度拍摄”属性相互关联，因此针对此类人群的同一产品中“连动拍摄”属性和“任意角度拍摄”可以同时体现。对于专业技术人员来说，“连动拍摄”属性和“任意角度拍摄”属性相互关联，因此针对此类人群的同一产品中“连动拍摄”属性和“任意角度拍摄”可以同时体现。总的来看，人们对于相机属性的重视度的关联主要集中于相机的技术配置，而不是外观综上所述，本文主要正对不同职业对相机不同特性重视程度的差异。经过以上分析知，不同职业间人群确实存在差异，总体而言企业大堂经理重视的特性最多，这类顾客是最挑剔的，但是其心理价位却不高，相比而言对于学生群体和专业技术人员，主要重视的是相机的功能，心理价位较高，可以重点突破。与此同时，针对一般行政人员可以采取一般化产品的推广即可。程序附录文献综述及数据初探部分Rcode1:camera=read.table(C:UsersMacXDesktopcamera.txt,header=T)attach(camera)v=which(is.na(camera),arr.ind=TRUE)#检测缺失值(输出结果无缺失值)a=matrix(c(c01,c02,c03,c04,c05,c11,c12,c13,c14,c15,c16),nrow=869,ncol=11)score=NAfor(iin1:869)score=c(score,sum(ai,)hist(score,prob=TRUE,ylim=c(0,0.09),xlim=c(10,60)lines(density(score)rug(jitter(score)Rcode2:m=869set.seed(10)samp=c(sample(1:200,100),sample(201:400,100),sample(401:600,100),sample(601:869,120)tsamp=setdiff(1:m,samp)kyphosis=rpart(factor(d3)factor(c01)+factor(c02)+factor(c03)+factor(c04)+factor(c05)+factor(c11)+factor(c12)+factor(c13)+factor(c14)+factor(c15)+factor(c16),data=camera,subset=samp)kyphosisplot(kyphosis)text(kyphosis,use.n=T,xpd=T)library(rpart.plot)rpart.plot(kyphosis)kyphosis1=cameratsamp,predict(kyphosis,kyphosis1,type=class)table(predict(kyphosis,kyphosis1,type=class),cameratsamp,19)Rcode3stu=awhich(d3=1),library(rpart)fit=rpart(factor(d3)factor(c01)+factor(c02)+factor(c03)+factor(c04)+factor(c05)+factor(c11)+factor(c12)+factor(c13)+factor(c14)+factor(c15)+factor(c16),data=camera)plot(fit);text(fit,use.n=T,xpd=T)rpart.plot(fit)描述统计部分：data=read.table(data.dat,header=T)attach(data)par(mfrow=c(1,2)#不同性别对外观重要性的箱线图for(iin1:2)boxplot(c01d1=i,c02d1=i,c03d1=i,c04d1=i,main=rownames(sex.c01)i)for(iin1:2)#不同性别对功能重要性的箱线图boxplot(c05d1=i,c11d1=i,c12d1=i,c13d1=i,c14d1=i,c15d1=i,c16d1=i,main=rownames(sex.c01)i)#性别对外观&功能重要程度，列联表，条形图sex.c01=matrix(rep(0,10),nrow=2,dimnames=list(c(男,女),c(非常不重视,不重视，普通，重视，非常重视)for(iin1:2)for(jin1:5)sex.c01i,j=sum(d1=i&c01=j)par(mfrow=c(1,2)for(i in 1:2)barplot(sex.c01i,main=rownames(sex.c01)i)sex.c02=matrix(rep(0,10),nrow=2,dimnames=list(c(男,女),c(非常不重视,不重视，普通，重视，非常重视)for(iin1:2)for(jin1:5)sex.c02i,j=sum(d1=i&c02=j)par(mfrow=c(1,2)for(iin1:2)barplot(sex.c02i,main=rownames(sex.c02)i)sex.c03=matrix(rep(0,10),nrow=2,dimnames=list(c(男,女),c(非常不重视,不重视，普通，重视，非常重视)for(iin1:2)for(jin1:5)sex.c03i,j=sum(d1=i&c03=j)par(mfrow=c(1,2)for(iin1:2)barplot(sex.c03i,main=rownames(sex.c03)i)sex.c04=matrix(rep(0,10),nrow=2,dimnames=list(c(男,女),c(非常不重视,不重视，普通，重视，非常重视)for(iin1:2)for(jin1:5)sex.c04i,j=sum(d1=i&c04=j)par(mfrow=c(1,2)for(iin1:2)barplot(sex.c04i,main=rownames(sex.c04)i)sex.c05=matrix(rep(0,10),nrow=2,dimnames=list(c(男,女),c(非常不重视,不重视，普通，重视，非常重视)for(iin1:2)for(jin1:5)sex.c05i,j=sum(d1=i&c05=j)par(mfrow=c(1,2)for(iin1:2)barplot(sex.c05i,main=rownames(sex.c05)i)sex.c11=matrix(rep(0,10),nrow=2,dimnames=list(c(男,女),c(非常不重视,不重视，普通，重视，非常重视)for(iin1:2)for(jin1:5)sex.c11i,j=sum(d1=i&c11=j)par(mfrow=c(1,2)for(iin1:2)barplot(sex.c11i,main=rownames(sex.c11)i)sex.c12=matrix(rep(0,10),nrow=2,dimnames=list(c(男,女),c(非常不重视,不重视，普通，重视，非常重视)for(iin1:2)for(jin1:5)sex.c12i,j=sum(d1=i&c12=j)par(mfrow=c(1,2)for(iin1:2)barplot(sex.c12i,main=rownames(sex.c12)i)sex.c13=matrix(rep(0,10),nrow=2,dimnames=list(c(男,女),c(非常不重视,不重视，普通，重视，非常重视)for(iin1:2)for(jin1:5)sex.c13i,j=sum(d1=i&c13=j)par(mfrow=c(1,2)for(iin1:2)barplot(sex.c13i,main=rownames(sex.c13)i)sex.c14=matrix(rep(0,10),nrow=2,dimnames=list(c(男,女),c(非常不重视,不重视，普通，重视，非常重视)for(iin1:2)for(jin1:5)sex.c14i,j=sum(d1=i&c14=j)par(mfrow=c(1,2)for(iin1:2)barplot(sex.c14i,main=rownames(sex.c14)i)sex.c15=matrix(rep(0,10),nrow=2,dimnames=list(c(男,女),c(非常不重视,不重视，普通，重视，非常重视)for(iin1:2)for(jin1:5)sex.c15i,j=sum(d1=i&c15=j)par(mfrow=c(1,2)for(iin1:2)barplot(sex.c15i,main=rownames(sex.c15)i)sex.c16=matrix(rep(0,10),nrow=2,dimnames=list(c(男,女),c(非常不重视,不重视，普通，重视，非常重视)for(iin1:2)for(jin1:5)sex.c16i,j=sum(d1=i&c16=j)par(mfrow=c(1,2)for(iin1:2)barplot(sex.c16i,main=rownames(sex.c16)i)par(mfrow=c(2,2)#不同职业对外观重要性的箱线图for(iin1:4)boxplot(c01d3=i,c02d3=i,c03d3=i,c04d3=i,main=rownames(job.c01)i)for(iin1:4)boxplot(c05d3=i,c11d3=i,c12d3=i,c13d3=i,c14d3=i,c15d3=i,c16d3=i,main=rownames(job.c01)i)#列联表画条形图_不同职业对外观和功能的重视程度job.c01=matrix(rep(0,20),nrow=4,dimnames=list(c(学生,企业大堂经理,一般行政,专业技术),c(非常不重视,不重视,普通，重视，非常重视)for(iin1:4)for(jin1:5)job.c01i,j=sum(d3=i&c01=j)par(mfrow=c(2,2)for(iin1:4)barplot(job.c01i,main=rownames(job.c01)i)job.c02=matrix(rep(0,20),nrow=4,dimnames=list(c(学生,企业大堂经理,一般行政,专业技术),c(非常不重视,不重视,普通,重视,非常重视)for(iin1:4)for(j in 1:5)job.c02i,j=sum(d3=i&c02=j)par(mfrow=c(2,2)for(iin1:4)barplot(job.c02i,main=rownames(job.c02)i)job.c03=matrix(rep(0,20),nrow=4,dimnames=list(c(学生,企业大堂经理,一般行政,专业技术),c(非常不重视,不重视,普通，重视，非常重视)for(iin1:4)for(jin1:5)job.c03i,j=sum(d3=i&c03=j)par(mfrow=c(2,2)for(iin1:4)barplot(job.c03i,main=rownames(job.c03)i)job.c04=matrix(rep(0,20),nrow=4,dimnames=list(c(学生,企业大堂经理,一般行政,专业技术),c(非常不重视,不重视,普通,重视,非常重视)for(iin1:4)for(jin1:5)job.c04i,j=sum(d3=i&c04=j)par(mfrow=c(2,2)for(iin1:4)barplot(job.c04i,main=rownames(job.c04)i)job.c05=matrix(rep(0,20),nrow=4,dimnames=list(c(学生,企业大堂经理,一般行政,专业技术),c(非常不重视,不重视,普通,重视,非常重视)for(iin1:4)for(jin1:5)job.c05i,j=sum(d3=i&c05=j)par(mfrow=c(2,2)for(iin1:4)barplot(job.c05i,main=rownames(job.c05)i)job.c11=matrix(rep(0,20),nrow=4,dimnames=list(c(学生,企业大堂经理,一般行政,专业技术),c(非常不重视,不重视,普通，重视，非常重视)for(iin1:4)for(jin1:5)job.c11i,j=sum(d3=i&c11=j)par(mfrow=c(2,2)for(iin1:4)barplot(job.c11i,main=rownames(job.c11)i)job.c12=matrix(rep(0,20),nrow=4,dimnames=list(c(学生,企业大堂经理,一般行政,专业技术),c(非常不重视,不重视,普通,重视,非常重视)for(iin1:4)for(jin1:5)job.c12i,j=sum(d3=i&c12=j)par(mfrow=c(2,2)for(iin1:4)barplot(job.c12i,main=rownames(job.c12)i)job.c13=matrix(rep(0,20),nrow=4,dimnames=list(c(学生,企业大堂经理,一般行政,专业技术),c(非常不重视,不重视,普通,重视,非常重视)for(iin1:4)for(jin1:5)job.c13i,j=sum(d3=i&c13=j)par(mfrow=c(2,2)for(iin1:4)barplot(job.c13i,main=rownames(job.c13)i)job.c14=matrix(rep(0,20),nrow=4,dimnames=list(c(学生,企业大堂经理,一般行政,专业技术),c(非常不重视,不重视,普通，重视，非常重视)for(iin1:4)for(jin1:5)job.c14i,j=sum(d3=i&c14=j)par(mfrow=c(2,2)for(iin1:4)barplot(job.c14i,main=rownames(job.c14)i)job.c15=matrix(rep(0,20),nrow=4,dimnames=list(c(学生,企业大堂经理,一般行政,专业技术),c(非常不重视,不重视,普通,重视,非常重视)for(iin1:4)for(jin1:5)job.c15i,j=sum(d3=i&c15=j)par(mfrow=c(2,2)for(iin1:4)barplot(job.c15i,main=rownames(job.c15)i)job.c16=matrix(rep(0,20),nrow=4,dimnames=list(c(学生,企业大堂经理,一般行政,专业技术),c(非常不重视,不重视,普通,重视,非常重视)for(iin1:4)for(jin1:5)job.c16i,j=sum(d3=i&c16=j)par(mfrow=c(2,2)for(i in 1:4)barplot(job.c16i,main=rownames(job.c16)i)sex.price=matrix(rep(0,10),nrow=2,byrow=T,dimnames=list(c(男,女),c(6000)for(iin1:2)for(jin1:5)sex.pricei,j=sum(d1=i&a03=j)for(iin1:2)barplot(sex.pricei,main=rownames(sex.price)i)par(mfrow=c(1,1)boxplot(a03d1=1,a03d1=2)job.price=matrix(rep(0,20),nrow=4,dimnames=list(c(学生,企业大堂经理,一般行政,专业技术),c(6000)for(iin1:4)#职业、价格列联表for(jin1:5)job.pricei,j=sum(d3=i&a03=j)par(mfrow=c(2,2)for(iin1:4)barplot(job.pricei,main=rownames(job.price)i)boxplot(a03d3=1,a03d3=2,a03d3=3,a03d3=4)Ridit检验部分：#Ridit检验函数，主要是算出W值，求出p值，并且输出置信区间，看重复程度，检验函数如下：ridit.test=function(x)O=sum(x)#先求出几个O.,r和sr=nrow(x)s=ncol(x)H=0.5*apply(x,2,sum)#求 H、 RjC=rep(0,s)for(i in 2:s)Ci=2*sum(H1:i-1)N=H+CRdot.j=N/OOi.dot=apply(x,1,sum)#求行和O.jdot=apply(x,2,sum)#求列和#计算RiR=matrix(rep(0,r*s),nrow=r,ncol=s)for(i in 1:r)for(j in 1:s)Ri,j=xi,j/O.jdotj*Rdot.jjRi.dot=apply(R,1,sum)#计算Ridit 得分矩阵Rid=matrix(rep(0,r*s),nrow=r)for(i in 1:r)Ridi,=Rdot.j*xi,#计算各处理的秩平均Ri_bar=rep(0,s)for(i in 1:r)Ri_bari=sum(Ridi,)/Oi.doti#求平均Ridit的置信区间conf.interval=matrix(rep(0,2*r),nrow=r)for(iin1:r)conf.intervali,=c(Ri_bari-1/sqrt(3*Oi.doti),Ri_bari+1/sqrt(3*Oi.doti)dimnames(conf.interval)=list(NULL,c(置信下限,置信上限)#作图plot(rep(1,100),seq(conf.interval1,1,conf.interval1,2,length=100),type=l,main=Riditvalueconfidenceinetrval,xlab=group,ylab=Rscore,xlim=c(1,r),ylim=c(0,1)for(iin2:r)lines(rep(i,100),seq(conf.intervali,1,conf.intervali,2,length=100)lines(c(0,r+1),c(0.5,0.5)W=12*sum(Oi.dot*(Ri.dot-0.5F2)#算检验统计量pvalue=1-pchisq(W,r-1)list(RiditScore=Rid,秩平均=Ri_bar,置信区间=conf.interval,p-value=pvalue)找出需要检验的部分，以矩阵形式输出：学习课件大三上非参数统计各章数据camera-chisq2.dat,header=T)malec01=femalec01=matrix(rep(0,20),4,5)for(iin1:4)for(jin1:5)malec01i,j=sum(camera$d1=1&camera$d3=i&camera$c01=j)for(iin1:4)for(jin1:5)femalec01i,j=sum(camera$d1=2&camera$d3=i&camera$c01=j)#以c01和c02为例做Ridit检验mc01=malec01+femalec01ridit.test(malec01)ridit.test(femalec01)ridit.test(mc01)关联规则部分：桌面camera.txt,head=T)cameranew1=camera,-c(1:5,18)ln1=length(cameranew11,)for(iin1:(ln1-2)cameranew1icameranew1i3=1;cameranew1ln1-1cameranew1ln1-1=1=0;cameranew1ln1-1cameranew1ln1-1=2=1;cameranew1ln1cameranew1ln1=1=1;cameranew1ln1cameranew1ln1=2=0;cameranew1cameranew1=as.matrix(cameranew1);trans21.1)names(rules)x=subset(rules,subset=lhs%in%d3)length(x)inspect(x)inspect(sort(x,by=support)1:length(x)inspect(sort(x,by=confidence)1:length(x)inspect(sort(x,by=lift)1:length(x)