#####################  Calculation of Level of significance

n=10;k=qchisq(0.05,n-1)
sne=c(); mu=0;sig0=1;c=1;sig1=c*sig0

for(i in 1:100000)
{
x=rnorm(n,mu,sig1)
sne[i]=(((n-1)*var(x))/sig0)<k
}
mean(sne)