[R] cat in a subroutine

[Jim Lemon]

Hi Steven,
I think Erin is right, unless there is a variable named "logistic"
visible within the function, "cat" will think it is either an argument
or an R object. If you have the "psych" package loaded, it may see it
as a closure. There is also a "Logistic" in the stats package, but
that shouldn't be visible due to the capital L

Jim

On Thu, Oct 13, 2022 at 6:55 PM Steven T. Yen <styen using ntu.edu.tw> wrote:
>
> Thanks Erin.
>
> No. Removing the second line (so that cat simply prints something else),
>
> cat("\nMarginal and Discrete Effects of Gen Ordered Logit / Probit
> Probabilities")
> #    "\n\nlogistic =",logistic)
>
> I get yet another nonsense:
>
> Error in cat("\nMarginal and Discrete Effects of Gen Ordered Logit /
> Probit Probabilities") :
>    argument "j" is missing, with no default
>  >
>
> On 10/13/2022 3:37 PM, Erin Hodgess wrote:
> > Hi Steven:
> >
> > Do you have a variable called logistic, please?  I think that might be
> > the culprit.
> >
> > Thanks,
> > Erin
> >
> > On Thu, Oct 13, 2022 at 1:35 AM Steven T. Yen <styen using ntu.edu.tw> wrote:
> >
> >     I have had an issue with printing (with cat) in a subroutine for
> >     which I
> >     do not have a applicable example, but I am still hoping to get some
> >     help. In the following, the first block of code works fine.
> >
> >     ...
> >
> >     t<-abs(me)/se; p<-2*(1-pt(t,nrow(x)))
> >     sig<-my.sig.levels(p)
> >     out<-data.frame(round(cbind(me,se,t,p),digits)); out<-cbind(out,sig)
> >     rownames(out)<-names(me)
> >     colnames(out)<-c("est","se","t","p","sig")
> >     j<-grep(".one\\b",rownames(out))
> >     out<-out[-j,]
> >     return(out)
> >     }
> >
> >     But as soon as I insert lines to print (cat) soething simple, it
> >     spits
> >     out message that appears to be nonsence (unrelated). Any idea. Please
> >     help. Thanks.
> >
> >     t<-abs(me)/se; p<-2*(1-pt(t,nrow(x)))
> >     sig<-my.sig.levels(p)
> >     out<-data.frame(round(cbind(me,se,t,p),digits)); out<-cbind(out,sig)
> >     rownames(out)<-names(me)
> >     colnames(out)<-c("est","se","t","p","sig")
> >     cat("\nMarginal and Discrete Effects of Gen Ordered Logit / Probit
> >     Probabilities",
> >          "\n\nlogistic =",logistic)
> >     j<-grep(".one\\b",rownames(out))
> >     out<-out[-j,]
> >     return(out)
> >     }
> >
> >     In this particular case, the error message was as follows:
> >
> >     Error in cat("\nMarginal and Discrete Effects of Gen Ordered Logit /
> >     Probit Probabilities",  :
> >        unused argument (logistic)
> >
> >     I have printed this way in numerous routines without problem and
> >     do not
> >     see why this is happending.
> >
> >     ______________________________________________
> >     R-help using 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
> >     <http://www.R-project.org/posting-guide.html>
> >     and provide commented, minimal, self-contained, reproducible code.
> >
> > --
> > Erin Hodgess, PhD
> > mailto: erinm.hodgess using gmail.com
>         [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help using 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.