Provide the R code to simulate a data set of 500 observations that satisfy each of logistic models A and B below in which logodds(Y_i=1)=0+1Xi for X_i iid uniform(0,1):

Model A: \beta_{0} = -2, \beta_{1}=2

Model B: \beta_{0} = -2, \beta_{1}=4