En la fabricación de discos compactos una variable de interés es la densidad mínima (grosor) de la capa de metal, la cual no debe ser menor de 1.5 micras. Se sabe por experiencia que la densidad mínima del metal casi siempre ocurre en los radios 24 y 57, aunque en el método actual también se miden los radios 32, 40 y 48. Se hacen siete lecturas en cada radio dando un total de 35 lecturas, de las cuales sólo se usa la mínima.

x<-c(1.81,1.97,1.93,1.97,1.85,1.99,1.95,1.93,1.85,1.87,1.98,1.93,1.96,2.02,2.07,1.92,1.99, 1.93) 
n<-length(x)
n
## [1] 18
hist(x,freq=FALSE, breaks=7, col="red")
lines(density(x))

m=mean(x)
s=sd(x)
tmin<-qt(0.025,n-1)
tmax<-qt(0.975,n-1)
L=m+tmin*s/sqrt(n)
U=m+tmax*s/sqrt(n)
print(L)
## [1] 1.907862