# Load the P for Example 2 from Myers, Ahn, Lu, Celimli, and Zopluoglu (2016).
data(P_esem)
# Load 200 replications of the estimated intercept or mean vector provided by replication
# numbers 1 through 100 and 4701 through 4800 in Example 2 from
# Myers, Ahn, Lu, Celimli, and Zopluoglu (2016).
data(sample_alpha_esem)
# Specify the following arguments within the correct_alpha function for Example 2 from
# Myers, Ahn, Lu, Celimli, and Zopluoglu (2016).
correct_alpha(P_data=P_esem, rep=200, n.eta=4, sample_alpha=sample_alpha_esem)
Run the code above in your browser using DataLab