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.…

対応のある分散分析（１要因） データの読み込み stanコード格納 連言命題が正しい確率 特定のパラメーターだけプロット 対応のある分散分析（１要因） データの読み込み #作業ディレクトリの設定（適宜変更） setwd("C:/Users/turid/OneDrive/ドキュメント"…