search for: joint12

...t;- 1 > funC <- function() { > v <<- v+1 > } > > funC() > cat (v) > #2 > > On Fri, 9 Aug 2024, 09:03 Steven Yen, <styen at ntu.edu.tw> wrote: > > > Thanks. Hmm. The loop is doing what it is supposed to do. > > > > > try1<-function(joint12=FALSE,marg1=FALSE,marg2=FALSE, > > + cond12=FALSE,cond21=FALSE){ > > + # *************************************************** > > + # Testing if loop > > + # *************************************************** > > + if(joint12){ > > + {print (&quo...

Thanks. Hmm. The loop is doing what it is supposed to do. > try1<-function(joint12=FALSE,marg1=FALSE,marg2=FALSE, +??????????????? cond12=FALSE,cond21=FALSE){ + # *************************************************** + # Testing if loop + # *************************************************** + if(joint12){ +?? {print ("joint12"); cat(joint12,"\n")} +?? {print (&...

...only return one object and I think you want two or more v <- 1 funC <- function() { v <<- v+1 } funC() cat (v) #2 On Fri, 9 Aug 2024, 09:03 Steven Yen, <styen at ntu.edu.tw> wrote: > Thanks. Hmm. The loop is doing what it is supposed to do. > > > try1<-function(joint12=FALSE,marg1=FALSE,marg2=FALSE, > + cond12=FALSE,cond21=FALSE){ > + # *************************************************** > + # Testing if loop > + # *************************************************** > + if(joint12){ > + {print ("joint12"); cat(joint12,...

Is something wrong in the initialisation part that we don't see? joint12 <- marg1 <-F marg1 <-T if (joint12) { print ("joint 12") cat (joint12) } if (marg1) { print("marg 1") cat(marg1) } Would probably be my diagnostic approach On Fri, 9 Aug 2024, 04:45 Steven Yen, <styen at ntu.edu.tw> wrote: > Can someone help me wi...

Can someone help me with the if loop below? In the subroutine, I initialize all of (joint12,marg1,marg2,cond12,cond21) as FALSE, and call with only one of them being TRUE: ,...,joint12=FALSE,marg1=FALSE,marg2=FALSE,cond12=FALSE,cond21=FALSE,,,, joint12 seems to always kick in, even though I call with, e.g., marg1 being TRUE and everything else being FALSE. My attempts with if... else...

The following (using if else) did not help. Seemed like joint12 always kicked in. ??? me1<-me0<-NULL. ??? if(joint12){ ????? {me1<-cbind(me1,v1$p12);? me0<-cbind(me0,v0$p12)} ??? } else if(marg1) { ????? {me1<-cbind(me1,v1$p1);?? me0<-cbind(me0,v0$p1)} ??? } else if(marg2) { ????? {me1<-cbind(me1,v1$p2);?? me0<-cbind(me0,v0$p2)}...

...t<-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, ??? "\nA...

...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 =",??...

...> 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, >> ???? &qu...