data(bread)
# penalty lift, based only on the first 12 consumers
# for the first attribute ("Fresh")
plift(bread$cata[1:12,,1], bread$liking[1:12, ], digits = 3)
# for the first 3 attributes with counts and averages
plift(bread$cata[1:12,,1:3], bread$liking[1:12, ], digits = 3, verbose = TRUE)
Run the code above in your browser using DataLab