Tml<-19.13 # the observed value of the likelihood ratio test

n<-153 # (Sample size-1)

dfM1<-10 # degrees of freedom of M1

dfM2<-12 # degrees of freedom of M2

delta<-dfM2*.033ˆ2 # define delta* in the null hypothesis

alpha<-.05

cv<-qchisq(1-alpha,df=dfM2-dfM1,n*delta) # Critical value under H0

pvalue<-1-pchisq(Tml,df=dfM2-dfM1,ncp=n*delta)

print(cv,digits=4)

print(pvalue,digits=2)