非参数统计 作业（第五章第六章）

第五章 分类数据关联性分析

习题5.11

数据描述

本案例所用到的数据来源于问卷调查，目的是探究问卷各项满意度是否存在差异

分析思路

满意度为类变量，可进行Ridit分析，根据Ridit分析原理编写相应检验程序ridit.test,该函数返回每个处理的得分、95%置信区间、统计量W值以及Kruskal—Wallis检验p值。

分析过程

载入数据，分析数据结构

data<-read.csv(file="D:\\MyDownloads\\5.11.csv",header = T)
str(as.matrix(data))

int [1:5, 1:5] 90 47 20 28 34 20 34 13 32 28 ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr [1:5] "非常不满意" "不满意" "一般" "满意" ...

根据5.6节中Ridit检验法原理，编写ridit.test（）函数

ridi.test<-function(x)
  {
  ord