Create pwr.lm.R