# ANOISTATIS Type 1
data('wines2012')
data = wines2012$data
column.design = wines2012$table
row.design= c('NZ','NZ','NZ','NZ','FR','FR','FR','FR','CA','CA','CA','CA')
demo.anisostatis1 <- mpANISOSTATIS(data,anisostatis.option='ANISOSTATIS_Type1',
column.design = column.design)
# ANISOSTATISType 2
data('wines2012')
data = wines2012$data
column.design = wines2012$table
row.design = c('NZ','NZ','NZ','NZ','FR','FR','FR','FR','CA','CA','CA','CA')
demo.anisostatis2 <- mpANISOSTATIS(data,anisostatis.option='ANISOSTATIS_Type2',
column.design = column.design)
Run the code above in your browser using DataLab