Nothing
riv <- function(Y, Xend, Xex=NULL, Zinst, dummies=NULL,
method = c('S-est', 'SD-est',
'MCD-est', 'classical')) {
method <- match.arg(method)
if (is.null(dummies)) {
riv_noDummies(Y, Xend, Xex, Zinst,
intercept=TRUE,
method=method)
} else {
riv_withDummies(Y, Xend, Xex, Zinst, dummies,
method = method)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.