path2file <- system.file("extdata",
"BeersFlashProfile.xlsx",
package = 'DistatisR')
# read the data in the excel file with read.df.excel
beerDataFlash <- read.df.excel(path = path2file,
sheet = 'Rankings')$df.data
# Extract the namers of the judges (first 2 characters)
JudgesVars <- colnames(beerDataFlash)
zeJudges <- substr(JudgesVars,1,2)
# call list2CubeOfCovDis
test.list2 <- list2CubeOfCovDis(Data = beerDataFlash ,
Judges = zeJudges)
Run the code above in your browser using DataLab