coef.alpha.r

basic coefficient alpha function