x<-c(176,183,185,190,191,192,201,205,214,220)
qqnorm(x)
qqline(x, col = 1,probs = c(0.025, 0.975),lwd=2,lty=1)

Có thể sử dụng gói lệnh car.

library(car)
## Warning: package 'car' was built under R version 4.2.3
## Loading required package: carData
qqPlot(x)

## [1] 10  1