Update simulation.R

add functions - crtLmat1, crtAmat, to generate noisy and incorrect Lmatrix