[R-br] Como ver o que uma função faz

[Pedro Emmanuel Alvarenga Americano do Brasil]

Ei Marcus,

No meu caso, eu gostaria de ver a Function.cph, mas ela aparece com um
asterisco que eu não sei o que é. Então...

> Function.cph
Error: object 'Function.cph' not found
> Function.cph*
+

E a função não aparece.

Pedro Brasil

Em 25 de agosto de 2017 13:37, Marcus Nunes <marcus.nunes em gmail.com>
escreveu:

> Use `methods` para encontrar os métodos da função desejada:
>
> > methods(Function)
> [1] Function.areg.boot Function.transcan
> see '?methods' for accessing help and source code
>
> Esta função tem dois métodos associados a ela: Function.areg.boot e
> Function.transcan. Agora é só pedir pra ver o código fonte do método que te
> interessa:
>
> > Function.areg.boot
> function (object, type = c("list", "individual"), ytype = c("transformed",
>     "inverse"), prefix = ".", suffix = "", pos = -1, ...)
> {
>     type <- match.arg(type)
>     ytype <- match.arg(ytype)
>     if (missing(type) && !(missing(prefix) & missing(suffix) &
>         missing(pos)))
>         type <- "individual"
>     fit <- object$fit
>     k <- length(fit)
>     nam <- names(fit)
>     g <- vector("list", k)
>     xtype <- object$xtype
>     typey <- object$ytype
>     catl <- object$cat.levels
>     names(g) <- nam
>     for (i in 1:k) {
>         typ <- if (i == 1)
>             typey
>         else xtype[i - 1]
>         if (typ == "c") {
>             if (i == 1 && ytype == "inverse")
>                 stop("currently does not handle ytype=\\"inverse\\" when y
> is categorical")
>             h <- function(x, trantab) {
>                 if (is.factor(x))
>                   x <- as.character(x)
>                 trantab[x]
>             }
>             w <- fit[[i]]$y
>             names(w) <- catl[[nam[i]]]
>             formals(h) <- list(x = numeric(0), trantab = w)
>         }
>         else {
>             h <- function(x, trantab) {
>                 s <- !is.na(x)
>                 res <- rep(NA, length(x))
>                 res[s] <- approxExtrap(trantab, xout = x[s])$y
>                 res
>             }
>             fiti <- fit[[i]]
>             formals(h) <- list(x = numeric(0), trantab = if (i ==
>                 1 && ytype == "transformed") list(x = fiti[[2]],
>                 y = fiti[[1]]) else fiti)
>         }
>         g[[i]] <- h
>     }
>     if (type == "list")
>         return(g)
>     fun.name <- paste(prefix, nam, suffix, sep = "")
>     for (i in 1:k) assign(fun.name[i], g[[i]], pos = pos)
>     invisible(fun.name)
> }
> <environment: namespace:Hmisc>
>
>
>
>
>
>
> --
> Marcus Nunes
> Professor Adjunto
> Universidade Federal do Rio Grande do Norte
> Centro de Ciências Exatas e da Terra
> Departamento de Estatística
> Laboratório de Estatística Aplicada
> marcus.nunes em ccet.ufrn.br
> http://marcusnunes.me/
>
>
> 2017-08-25 13:21 GMT-03:00 Pedro Emmanuel Alvarenga Americano do Brasil
> via R-br <r-br em listas.c3sl.ufpr.br>:
>
>> Amigos de R,
>>
>> Gostaria de poder ver a sequencia de operações que uma função faz. Na
>> maioria das funções, basta digitar o nome da função no console, por exemplo
>>
>> > trimws
>> function (x, which = c("both", "left", "right"))
>> {
>>     which <- match.arg(which)
>>     mysub <- function(re, x) sub(re, "", x, perl = TRUE)
>>     if (which == "left")
>>         return(mysub("^[ \t\r\n]+", x))
>>     if (which == "right")
>>         return(mysub("[ \t\r\n]+$", x))
>>     mysub("[ \t\r\n]+$", mysub("^[ \t\r\n]+", x))
>> }
>> <bytecode: 0x0000000002fdbd78>
>> <environment: namespace:base>
>>
>> No entanto, algumas funções não seguem essa regra e eu não sei como
>> fazer. Por exemplo
>>
>> library(Hmisc)
>> > Function
>> function (object, ...)
>> UseMethod("Function")
>> <environment: namespace:Hmisc>
>>
>> Alguma dica pra conseguir enxergar as operações dessa função?
>>
>> Abraço forte,
>>
>> Pedro Brasil
>>
>> _______________________________________________
>> R-br mailing list
>> R-br em listas.c3sl.ufpr.br
>> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
>> código mínimo reproduzível.
>>
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20170825/92fd0a6d/attachment.html>