Se o pacote for o rms basta baixar o código fonte e abrir a pasta R/

http://cran-r.c3sl.ufpr.br/src/contrib/rms_5.1-1.tar.gz

"May the source be with you"


---
Fernando de Pol Mayer
Laboratório de Estatística e Geoinformação - LEG
Departamento de Estatística - DEST
Universidade Federal do Paraná - UFPR
URL: http://leg.ufpr.br/~fernandomayer
e-mail: fernando.mayer [@] {gmail.com, ufpr.br}

2017-09-01 21:56 GMT-03:00 Cesar Rabak via R-br <r-br@listas.c3sl.ufpr.br>:

> Pedro,
>
> Acho que nesse caso a forma mais prática seria você baixar o código do
> pacote e ver a dita cuja diretamente. . .
>
>
> 2017-09-01 9:38 GMT-03:00 Pedro Emmanuel Alvarenga Americano do Brasil via
> R-br <r-br@listas.c3sl.ufpr.br>:
>
>> library(rms)
>> rms:::Function.cph
>> rms:::Function.rms
>>
>> Pacote errado e é uma função aninhada em outra.
>>
>> Pedro Brasil
>>
>> Em 25 de agosto de 2017 14:53, Tiago Fragoso <fragoso2...@gmail.com>
>> escreveu:
>>
>>> 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.nu...@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.nu...@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.
>>>>
>>>
>>>
>>
>> _______________________________________________
>> 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.
>
_______________________________________________
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] Como ver o qu... Pedro Emmanuel Alvarenga Americano do Brasil via R-br
    • Re: [R-br] Como... Marcus Nunes via R-br
      • Re: [R-br] ... Pedro Emmanuel Alvarenga Americano do Brasil via R-br
        • Re: [R-... Tiago Fragoso via R-br
          • Re:... Pedro Emmanuel Alvarenga Americano do Brasil via R-br
          • Re:... Pedro Emmanuel Alvarenga Americano do Brasil via R-br
            • ... Cesar Rabak via R-br
              • ... Fernando Mayer via R-br
                • ... Walmes Zeviani via R-br

Responder a