data(AmzBoxes)
AmzBox20<- GenerateBoxData(XYZ = AmzBoxes[,2:4],
BoxStudy = 20)$BoxData
RAmzBox20 <- cor(AmzBox20)
EKCout <- faEKC(R = RAmzBox20,
NSubj = 98,
Plot = TRUE)
Run the code above in your browser using DataLab