On 06/11/2012 17:01, Sarah Goslee wrote:
Hi all,
I'm working with summary.gam() and noticed that the options()$width
argument is ignored by some components of that function, in particular
the formula, which is printed at an arbitrary length regardless of the
desired width.
I've tracked the problem back to print.formula(), so at a lower level
than summary.gam(). Is there a way around this that I'm missing?
Use deparse(): print() on a language type uses (at C level) deparse with
the default width.cutoff of 60. E.g. (subject to vagaries of mailers)
> form <-
reallylongnamey~reallylongnamex0+reallylongnamex1+reallylongnamex2+reallylongnamex3
> form
reallylongnamey ~ reallylongnamex0 + reallylongnamex1 + reallylongnamex2 +
reallylongnamex3
> deparse(form, 150)
[1] "reallylongnamey ~ reallylongnamex0 + reallylongnamex1 +
reallylongnamex2 + reallylongnamex3"
I am not sure this is something we would want to make depend on
getOption("width"), but it might merit a separate option.
library(mgcv)
# start with example from ?gam
set.seed(2) ## simulate some data...
dat <- gamSim(1,n=400,dist="normal",scale=2)
colnames(dat)[1:5] <- c("reallylongnamey", "reallylongnamex0",
"reallylongnamex1", "reallylongnamex2", "reallylongnamex3")
b <-
gam(reallylongnamey~s(reallylongnamex0)+s(reallylongnamex1)+s(reallylongnamex2)+s(reallylongnamex3),data=dat)
options(width=20)
b$formula # not wrapped to 20 characters
options(width=150)
b$formula # the formula is wrapped even though it fits in the specified width
# also true for lm()
b <-
lm(reallylongnamey~reallylongnamex0+reallylongnamex1+reallylongnamex2+reallylongnamex3,data=dat)
options(width=20)
b$call
options(width=150)
b$call
Thanks,
Sarah
--
Sarah Goslee
http://www.functionaldiversity.org
______________________________________________
R-help@r-project.org mailing list
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.
--
Brian D. Ripley, rip...@stats.ox.ac.uk
Professor of Applied Statistics, http://www.stats.ox.ac.uk/~ripley/
University of Oxford, Tel: +44 1865 272861 (self)
1 South Parks Road, +44 1865 272866 (PA)
Oxford OX1 3TG, UK Fax: +44 1865 272595
______________________________________________
R-help@r-project.org mailing list
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.
