How to estimate bivariate probit in R?

Question

I am looking to estimate a bivariate probit where the regressors are same for the two explanatory variables .

Y1 ~ X1 + X2 + X3 Y2 ~ X1 + X2 + X3

I tried using