Changed degrees of freedom on variance to match R