dfM1<-20 # degrees of freedom of M1

dfM2<-22 # degrees of freedom of M2

r1<-seq(.03,.09,.01) # RMSEA choice for M1

r2<-r1+.01 # RMSEA choice for M2

Fn<-matrix(0,length(r2),length(r1))

for (i in 1:length(r2)) {

for (j in 1:i) {

Fn[i,j]<-sqrt((r2[i]ˆ2*dfM2-r1[j]ˆ2*dfM1)/dfM2)

}

}

print(Fn,digits=2)