# dati
data(SLID, package = "carData")

qqnorm(SLID$wages)

grid()               # griglia

# linea della distribuzione normale
qqline(SLID$wages, 
       lwd = 2,      # spessore
       col = "red"   # colore
       )