This function draws the "precision plot", which allows the visual comparison
of the precision (i.e. standard deviation) of the new measurement method with
the reference standard by creating a scatter plot of the estimated standard
deviations, along with their 95% simultaneous confidence bands, against the
best linear prediction (BLUP) of the true latent trait, x.
# \donttest{### Load the datadata(data1)
### Analysismeasure_model <- measure_compare(data1, nb_simul=100)
### Plot the precision of the two methodsprecision_plot(measure_model)# }