powered by
LETGRADE(g)
g = rnorm(25, m=82, sd=10) g[g>100] = 100 g[g<1] = 1 L = LETGRADE(g) cbind(g, L)
Run the code above in your browser using DataLab