Às 09:51 de 11/08/2024, Steven Yen escreveu:
Hi
In the following codes, I had to choose between printing (= TRUE) or
deliver something for grab (ei, vi). Is there a way to get both--that
is, to print and also have ei and vi for grab? Thanks.
Steven
...
out<-round(as.data.frame(cbind(ap,se,t,p)),digits)
out<-cbind(out,sig)
out<-out[!grepl(colnames(zx)[1],rownames(out)),]
if(printing){
cat("\nAPPs of bivariate ordered probit probabilities",
"\nWritten by Steven T. Yen (Last update: 08.11.24)",
"\ny1.level=", y1.level,
" y2.level=", y2.level,
"\njoint12 =", joint12,
"\nmarg1 =", marg1,
"\nmarg2 =", marg2,
"\ncond12 =", cond12,
"\ncond21 =", cond21,
"\nCovariance matrix:",vb.method,
"\nWeighted =", weighted,
"\nAt means =", mean,
"\nProb x 100 =", times100,
"\ntesting =" , testing,
"\nuse_bb_and_vbb = ",use_bb_and_vbb,
"\nsample size =", length(y1),"\n")
if (!resampling) cat("\nSEs by delta method","\n")
if (resampling) cat("\nSEs K-R resampling with",ndraws,"draws\n")
return(out)
} else {
invisible(list("ei"=ap,"vi"=vap))
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Hello,
Maybe change the end of the code to return a bigger list.
ll <- list(out = out, ei = ap, vi = vap)
return(ll)
} else {
invisible(list("ei"=ap,"vi"=vap))
Hope this helps,
Rui Barradas
--
Este e-mail foi analisado pelo software antivírus AVG para verificar a presença
de vírus.
www.avg.com
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
