var_test1 function

Two sided or one sided test of hypothesis of sigma^2 of one normal sample