Steven, would you mind putting that section of code in again, with the cat
statement, please?
I have an idea...
Erin Hodgess, PhD
mailto: erinm.hodg...@gmail.com
On Thu, Oct 13, 2022 at 2:13 AM Jim Lemon <drjimle...@gmail.com> wrote:
> 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 <st...@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 <st...@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@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.hodg...@gmail.com
> > [[alternative HTML version deleted]]
> >
> > ______________________________________________
> > 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.
>
[[alternative HTML version deleted]]
______________________________________________
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.
