On Mon, 14 Nov 2005, Claus Atzenbeck wrote:
> Hi,
>
> I have the following function:
>
> test <- function(x)
> {
> print(shapiro.test(x))
> ...
> }
>
> The output for "test(sample1$sec)" is:
>
> Shapiro-Wilk normality test
>
> data: x
> W = 0.9447, p-value = 0.5767
> ...
>
> I would like to see "data: sample1$sec" instead of "data: x", as it
> would be when directly called "shapiro.test(sample1$sec)".
>
> How can I do that? I browsed the documentation and other literature, but
> did not find any solution.
Use substitute(). Something like
test <- function(x)
{
xlab <- substitute(x)
print(eval.parent(substitute(shapiro.test(x), list(x=xlab))))
}
See S Programming section 3.5.
--
Brian D. Ripley, [EMAIL PROTECTED]
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@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
