<div dir="ltr"><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><div class="gmail_default">library(rms)</div><div class="gmail_default">rms:::Function.cph </div><div class="gmail_default">rms:::Function.rms</div><div><br></div><div>Pacote errado e é uma função aninhada em outra. </div></div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><font face="'courier new', monospace" style="background-color:rgb(255,255,255)" color="#000066">Pedro Brasil</font></div></div></div></div></div></div>
<br><div class="gmail_quote">Em 25 de agosto de 2017 14:53, Tiago Fragoso <span dir="ltr"><<a href="mailto:fragoso2718@gmail.com" target="_blank">fragoso2718@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Olá,<div><br></div><div>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. </div><div><br></div><div>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 ":". </div></div><div class="HOEnZb"><div class="h5"><div class="gmail_extra"><br><div class="gmail_quote">2017-08-25 14:10 GMT-03:00 Pedro Emmanuel Alvarenga Americano do Brasil via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)">Ei Marcus, </div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)">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...</div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><div class="gmail_default">> Function.cph</div><div class="gmail_default">Error: object 'Function.cph' not found</div><div class="gmail_default">> Function.cph*</div><div class="gmail_default">+</div><div class="gmail_default"><br></div><div class="gmail_default">E a função não aparece. </div></div></div><div class="gmail_extra"><span class="m_-9012875215749943246HOEnZb"><font color="#888888"><br clear="all"><div><div class="m_-9012875215749943246m_-1424257184919476807gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><font face="'courier new', monospace" style="background-color:rgb(255,255,255)" color="#000066">Pedro Brasil</font></div></div></div></div></div></div></font></span><div><div class="m_-9012875215749943246h5">
<br><div class="gmail_quote">Em 25 de agosto de 2017 13:37, Marcus Nunes <span dir="ltr"><<a href="mailto:marcus.nunes@gmail.com" target="_blank">marcus.nunes@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Use `methods` para encontrar os métodos da função desejada:<div><br></div><div><div>> methods(Function)</div><div>[1] Function.areg.boot Function.transcan </div><div>see '?methods' for accessing help and source code</div></div><div><br></div><div>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:</div><div><br></div><div><div>> Function.areg.boot</div><div>function (object, type = c("list", "individual"), ytype = c("transformed", </div><div>    "inverse"), prefix = ".", suffix = "", pos = -1, ...) </div><div>{</div><div>    type <- match.arg(type)</div><div>    ytype <- match.arg(ytype)</div><div>    if (missing(type) && !(missing(prefix) & missing(suffix) & </div><div>        missing(pos))) </div><div>        type <- "individual"</div><div>    fit <- object$fit</div><div>    k <- length(fit)</div><div>    nam <- names(fit)</div><div>    g <- vector("list", k)</div><div>    xtype <- object$xtype</div><div>    typey <- object$ytype</div><div>    catl <- object$cat.levels</div><div>    names(g) <- nam</div><div>    for (i in 1:k) {</div><div>        typ <- if (i == 1) </div><div>            typey</div><div>        else xtype[i - 1]</div><div>        if (typ == "c") {</div><div>            if (i == 1 && ytype == "inverse") </div><div>                stop("currently does not handle ytype=\\"inverse\\" when y is categorical")</div><div>            h <- function(x, trantab) {</div><div>                if (is.factor(x)) </div><div>                  x <- as.character(x)</div><div>                trantab[x]</div><div>            }</div><div>            w <- fit[[i]]$y</div><div>            names(w) <- catl[[nam[i]]]</div><div>            formals(h) <- list(x = numeric(0), trantab = w)</div><div>        }</div><div>        else {</div><div>            h <- function(x, trantab) {</div><div>                s <- !<a href="http://is.na" target="_blank">is.na</a>(x)</div><div>                res <- rep(NA, length(x))</div><div>                res[s] <- approxExtrap(trantab, xout = x[s])$y</div><div>                res</div><div>            }</div><div>            fiti <- fit[[i]]</div><div>            formals(h) <- list(x = numeric(0), trantab = if (i == </div><div>                1 && ytype == "transformed") list(x = fiti[[2]], </div><div>                y = fiti[[1]]) else fiti)</div><div>        }</div><div>        g[[i]] <- h</div><div>    }</div><div>    if (type == "list") </div><div>        return(g)</div><div>    <a href="http://fun.name" target="_blank">fun.name</a> <- paste(prefix, nam, suffix, sep = "")</div><div>    for (i in 1:k) assign(<a href="http://fun.name" target="_blank">fun.name</a>[i], g[[i]], pos = pos)</div><div>    invisible(<a href="http://fun.name" target="_blank">fun.name</a>)</div><div>}</div><div><environment: namespace:Hmisc></div></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div></div><div class="gmail_extra"><br clear="all"><div><div class="m_-9012875215749943246m_-1424257184919476807m_-805762983658962939gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr">--</div><div dir="ltr">Marcus Nunes</div><div dir="ltr">Professor Adjunto</div><div dir="ltr">Universidade Federal do Rio Grande do Norte</div><div dir="ltr">Centro de Ciências Exatas e da Terra</div><div dir="ltr">Departamento de Estatística</div><div dir="ltr">Laboratório de Estatística Aplicada</div><div dir="ltr"><a href="mailto:marcus.nunes@ccet.ufrn.br" target="_blank">marcus.nunes@ccet.ufrn.br</a></div><div dir="ltr"><a href="http://marcusnunes.me/" target="_blank">http://marcusnunes.me/</a></div><div dir="ltr"><br></div></div></div></div></div></div></div></div>
<br><div class="gmail_quote"><div><div class="m_-9012875215749943246m_-1424257184919476807h5">2017-08-25 13:21 GMT-03:00 Pedro Emmanuel Alvarenga Americano do Brasil via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span>:<br></div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="m_-9012875215749943246m_-1424257184919476807h5"><div dir="ltr"><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)">Amigos de R, </div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)">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 </div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><div class="gmail_default">> trimws</div><div class="gmail_default">function (x, which = c("both", "left", "right")) </div><div class="gmail_default">{</div><div class="gmail_default">    which <- match.arg(which)</div><div class="gmail_default">    mysub <- function(re, x) sub(re, "", x, perl = TRUE)</div><div class="gmail_default">    if (which == "left") </div><div class="gmail_default">        return(mysub("^[ \t\r\n]+", x))</div><div class="gmail_default">    if (which == "right") </div><div class="gmail_default">        return(mysub("[ \t\r\n]+$", x))</div><div class="gmail_default">    mysub("[ \t\r\n]+$", mysub("^[ \t\r\n]+", x))</div><div class="gmail_default">}</div><div class="gmail_default"><bytecode: 0x0000000002fdbd78></div><div class="gmail_default"><environment: namespace:base></div></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)">No entanto, algumas funções não seguem essa regra e eu não sei como fazer. Por exemplo</div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)">library(Hmisc)</div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><div class="gmail_default">> Function</div><div class="gmail_default">function (object, ...) </div><div class="gmail_default">UseMethod("Function")</div><div class="gmail_default"><environment: namespace:Hmisc></div></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)">Alguma dica pra conseguir enxergar as operações dessa função?</div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)">Abraço forte,</div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div><div class="m_-9012875215749943246m_-1424257184919476807m_-805762983658962939m_-1004570328841407442gmail_signature"><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><font face="'courier new', monospace" style="background-color:rgb(255,255,255)" color="#000066">Pedro Brasil</font></div></div></div></div></div></div>
</div>
<br></div></div>______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi<wbr>-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-g<wbr>uia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
</blockquote></div><br></div></div></div>
<br>______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi<wbr>-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-g<wbr>uia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
</div></div></blockquote></div><br></div>