\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlstd{dr.est} \hlkwb{<-} \hlkwd{drgee}\hlstd{(}\hlkwc{oformula} \hlstd{=} \hlkwd{formula}\hlstd{(Y}\hlopt{~}\hlnum{1}\hlstd{),} \hlkwc{eformula} \hlstd{=} \hlkwd{formula}\hlstd{(Z}\hlopt{~}\hlstd{X1}\hlopt{*}\hlstd{X2),}
\hlkwc{iaformula} \hlstd{=} \hlkwd{formula}\hlstd{(}\hlopt{~}\hlstd{X1}\hlopt{*}\hlstd{X2),} \hlkwc{olink} \hlstd{=} \hlstr{"identity"}\hlstd{,} \hlkwc{elink} \hlstd{=} \hlstr{"logit"}\hlstd{,}
\hlkwc{data} \hlstd{= mydata,} \hlkwc{estimation.method} \hlstd{=} \hlstr{"dr"}\hlstd{)}
\hlstd{pars}\hlkwb{<-}\hlstd{dr.est}\hlopt{$}\hlstd{coefficients.all}
\hlstd{psi.hat}\hlkwb{<-}\hlstd{pars[}\hlnum{1}\hlopt{:}\hlnum{4}\hlstd{]}                         \hlcom{#psi parameters}
\hlstd{alpha.hat}\hlkwb{<-}\hlstd{pars[}\hlnum{5}\hlopt{:}\hlnum{8}\hlstd{]}                       \hlcom{#ps parameters}
\hlstd{psi.prime.hat}\hlkwb{<-}\hlstd{pars[}\hlnum{9}\hlopt{:}\hlnum{12}\hlstd{]}                  \hlcom{#psi additional parameters}
\hlstd{beta.hat}\hlkwb{<-}\hlstd{pars[}\hlnum{13}\hlstd{]}                         \hlcom{#beta.parameters}
\hlstd{psi.hat}
\end{alltt}
\begin{verbatim}
+         Z      Z:X1      Z:X2   Z:X1:X2 
+ 1.1247753 1.0759005 0.9522669 1.1527323
\end{verbatim}
\end{kframe}
\end{knitrout}