Fleissのκ係数 #データ読み込み library(readr) dat1 <- read_csv("csv1.csv") #欠損値除去 dat1=na.omit(dat1) #変数型の変更 dat1$Mscore=as.numeric(dat1$Mscore) dat1$Msitu=as.numeric(dat1$Msitu) dat1$Nscore=as.numeric(dat1$Nscore) dat1$Nsitu=as.…