use h$counts instead of y
explicit use of model <- ; goal()
report proportion with rflip()