t11<-rep(NA,9)
t12<-rep(NA,9)
t13<-rep(NA,9)
t14<-rep(NA,9)
t15<-rep(NA,9)

for(i in 1:9) {
  t11[i]<-qt(0.9, i)
}
for(i in 1:9) {
  t12[i]<-qt(0.95, i)
}
for(i in 1:9) {
  t13[i]<-qt(0.975,i)
}
for(i in 1:9) {
  t14[i]<-qt(0.99, i)
}
for(i in 1:9) {
  t15[i]<-qt(0.995, i)
}

round((poi<-cbind(t11,t12,t13,t14,t15)), digits=3)