25 Ago
2017
25 Ago
'17
17:53
Olá,
Essa função não aparece nem pra mim nem pro Marcus quando usamos methods(),
capaz que ela não esteja em versões posteriores do Hmisc.
O asterisco na saida do methods() indica uma função não exportada. Nesse
caso, Hmisc:::Function.cph deveria achar a função. Note os três ":".
2017-08-25 14:10 GMT-03:00 Pedro Emmanuel Alvarenga Americano do Brasil via
R-br <r-br@listas.c3sl.ufpr.br>:
> 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@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@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@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@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.
>>>
>>
>>
>
> _______________________________________________
> R-br mailing list
> R-br@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.
>