data(bread)
# penalty lift, based only on the first 20 consumers
# for the first attribute ("Fresh")
pLift(bread$cata[1:20,,1], bread$liking[1:20, ])
# for the first 3 attributes
pLift(bread$cata[1:20,,1:3], bread$liking[1:20, ])
Run the code above in your browser using DataLab