필라이 검정

집단간 등분상을 가정할 수 없을 때 주로 검정

 

 

# 필요한 패키지
library(readxl)

# 데이터 불러오기
data <- read_excel("d:/mydata/다변량용.xlsx")

data$포지션 <- as.factor(data$포지션)

# MANOVA 모델 적합
fit <- manova(cbind(Con, Ozs, Spd) ~ 포지션, data = data)

# Pillai's trace 검정
summary(fit, test = "Pillai")

 

다변량용.xlsx

0.10MB