data('BBC_pp17.1', package='behaviorchange');
behaviorchange::CIBERlite(data=BBC_pp17.1,
determinants=c("epw_attitude",
"epw_perceivedNorm",
"epw_pbc",
"epw_habit"),
targets=c("epw_intention"));
Run the code above in your browser using DataLab