# NOT RUN {
n = 300
# Chang's 1983 setting
simu = simu_bfem(n = n, which = "Chang1983")
# Section 4.2 setting
p = 25
noise = 1
simu = simu_bfem(n, which = "section4.2", p = p, noise = noise)
# Section4.3 setting
snr = 3 # noise variance is 2 times smaller than that of the signal.
simu = simu_bfem(n, which = "section4.3", snr = 10)
# }
Run the code above in your browser using DataLab