df<-10

chi1<-numeric(df)
chi2<-numeric(df)
chi3<-numeric(df)
chi4<-numeric(df)
chi5<-numeric(df)
chi6<-numeric(df)

 for(j in 1:df) {
  chi1[j]<-qchisq(0.01,j)
 }

for(j in 1:df) {
  chi2[j]<-qchisq(0.05,j)
}

for(j in 1:df) {
  chi3[j]<-qchisq(0.1,j)
}

for(j in 1:df) {
  chi4[j]<-qchisq(0.9,j)
}

for(j in 1:df) {
  chi5[j]<-qchisq(0.95,j)
}

for(j in 1:df) {
  chi6[j]<-qchisq(0.99,j)
}

round((chi<-cbind(chi1,chi2,chi3,chi4,chi5, chi6)),digits=4)