# NOT RUN {
Data2P <- SimulateData2P(N = 10^3,
P1 = 1,
P2 = 1,
b0.1 = 0,
b1.1 = 1,
b1.2 = 1,
sd.1 = 1)
# }
Run the code above in your browser using DataLab