
Hi, 

This IS the code of the function. It is a generic function, the actual method used depends on the class of the object. 
You will find methods for this function by doing: 

R> methods("svymean")
[1] svymean.survey.design*  svymean.survey.design2* svymean.svyrep.design* 
[4] svymean.twophase*      

   Non-visible functions are asterisked

And then, since they are trapped into the survey namespace, you can use either getAnywhere or ::: as in :

R> getAnywhere("svymean.twophase")
A single object matching ‘svymean.twophase’ was found
It was found in the following places
  registered S3 method for svymean from namespace survey
  namespace:survey
with value

function (x, design, na.rm = FALSE, deff = FALSE, ...) 
{
    if (inherits(x, "formula")) {
        mf <- model.frame(x, design$phase1$sample$variables, 
            na.action = na.pass)
        xx <- lapply(attr(terms(x), "variables")[-1], function(tt) model.matrix(eval(bquote(~0 + 
            .(tt))), mf))
...

R> survey:::svymean.twophase
function (x, design, na.rm = FALSE, deff = FALSE, ...) 
{
    if (inherits(x, "formula")) {
        mf <- model.frame(x, design$phase1$sample$variables, 
            na.action = na.pass)
        xx <- lapply(attr(terms(x), "variables")[-1], function(tt) model.matrix(eval(bquote(~0 + 
            .(tt))), mf))
        cols <- sapply(xx, NCOL)
        x <- matrix(nrow = NROW(xx[[1]]), ncol = sum(cols))
        scols <- c(0, cumsum(cols))
...

Cheers, 

Romain

--
Mango Solutions
data analysis that delivers
Tel: +44(0) 1249 467 467
Mob: +44(0) 1249 467 468
Fax: +44(0) 7813 526 123



-----Original Message-----
From: r-help-bounces@r-project.org on behalf of Luis Ridao Cruz
Sent: Fri 25/01/2008 14:46
To: r-help@stat.math.ethz.ch
Subject: [R] function code
 
R-help,

Sorry for this question (I guess it has been addressed before but 
I could not find it in the archives)
but how can I see a function code
when the following comes up:

> svymean
function (x, design, na.rm = FALSE, ...) 
{
    .svycheck(design)
    UseMethod("svymean", design)
}
<environment: namespace:survey>


Thanks in advance

______________________________________________
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.


	[[alternative HTML version deleted]]

