alternate power model calculation w/R