<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">> Hmisc:::Function.cph </div><div class="gmail_default">Error in get(name, envir = asNamespace(pkg), inherits = FALSE) : </div><div class="gmail_default"> object 'Function.cph' not found</div><div class="gmail_default">> Hmisc::Function.cph </div><div class="gmail_default">Error: 'Function.cph' não é um objeto exportado de 'namespace:Hmisc'</div><div class="gmail_default">> Hmisc:Function.cph </div><div class="gmail_default">Error: object 'Hmisc' not found</div><div class="gmail_default">> </div><div class="gmail_default"><div class="gmail_default">test1 <- list(time=c(4,3,1,1,2,2,3), </div><div class="gmail_default">+ status=c(1,1,1,0,1,1,0), </div><div class="gmail_default">+ x=c(0,2,1,1,1,0,0), </div><div class="gmail_default">+ sex=c(0,0,0,0,1,1,1))</div></div><div class="gmail_default">> fit1 <- cph(Surv(time, status) ~ x + sex, test1) <br></div><div class="gmail_default"><div class="gmail_default">> Function(fit1)</div><div class="gmail_default">function(x = NA,sex = NA) {-0.95815758+0.78116618*x+0.93375738*sex }</div><div class="gmail_default"><environment: 0x000000001fc14318></div><div class="gmail_default">> lp.fit1 <- Function(fit1)</div><div class="gmail_default">> lp.fit1(x = 3, sex = 1) # preditor linear de um sujeito de sexo = 1 e preditor x = 3. </div><div class="gmail_default">[1] 2.319098 </div><div class="gmail_default">> </div></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_2762281842803083783HOEnZb"><font color="#888888"><br clear="all"><div><div class="m_2762281842803083783m_-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_2762281842803083783h5">
<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_2762281842803083783m_-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_2762281842803083783m_-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_2762281842803083783m_-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_2762281842803083783m_-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>