<font color="#000066"><font face="courier new,monospace">Benilton,</font></font><div><font color="#000066"><font face="courier new,monospace"><br></font></font></div><div><font color="#000066"><font face="courier new,monospace">COmo eu imaginava, o que voce diz é que provavelmente sou eu que estou inserindo o erro. Basta saber aonde. </font></font></div>
<div><font color="#000066"><font face="courier new,monospace"><br></font></font></div><div><font color="#000066"><font face="courier new,monospace">Segue a saida da função... não há especificação do pacote. </font></font></div>
<div><font color="#000066"><font face="courier new,monospace"><br></font></font></div><div><font color="#000066"><font face="courier new,monospace"><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Arial; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; font-size: medium; "><span class="Apple-style-span" style="font-family: 'DejaVu Sans Mono'; font-size: 12px; "><table cellspacing="0" cellpadding="0" class="GD40030CFR ace_text-layer ace_line GD40030CDM" style="font-family: 'DejaVu Sans Mono'; color: black; white-space: pre-wrap !important; padding-left: 6px; padding-bottom: 8px; line-height: 1.3; border-top-style: none; border-right-style: none; border-bottom-style: none; border-left-style: none; border-width: initial; border-color: initial; outline-style: none; outline-width: initial; outline-color: initial; word-wrap: break-word; cursor: text; font-size: 10pt !important; width: 832px; ">
<tbody><tr><td align="left" style="font-family: 'DejaVu Sans Mono'; line-height: 1.3; font-size: 10pt !important; vertical-align: top; "><table cellspacing="0" cellpadding="0" style="width: 832px; "><tbody><tr></tr>
<tr><td align="left" style="font-family: 'DejaVu Sans Mono'; line-height: 1.3; vertical-align: top; "><pre tabindex="0" class="GD40030CLR" style="font-family: 'DejaVu Sans Mono'; outline-style: none; outline-width: initial; outline-color: initial; border-top-style: none; border-right-style: none; border-bottom-style: none; border-left-style: none; border-width: initial; border-color: initial; white-space: pre-wrap !important; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; line-height: 1.3; ">
<font class="Apple-style-span" size="1"><span class="GD40030COR ace_keyword" style="white-space: pre; color: blue; ">> </span><span class="GD40030CCR ace_keyword" style="color: blue; ">library('epicalc')
</span><span class="GD40030COR ace_keyword" style="white-space: pre; color: blue; ">> </span><span class="GD40030CCR ace_keyword" style="color: blue; ">followup.plot(c$prontuario,c$dias,c$CD,by=c$iris)
</span><span class="GD40030CGR">Erro em get(search()[2]) : objeto 'package:rms' não encontrado
</span><span class="GD40030COR ace_keyword" style="white-space: pre; color: blue; ">> </span><span class="GD40030CCR ace_keyword" style="color: blue; ">followup.plot
</span>function (id, time, outcome, by = NULL, n.of.lines = NULL, legend = TRUE,
legend.site = "topright", lty = "auto", line.col = "auto",
stress = NULL, stress.labels = FALSE, label.col = 1, stress.col = NULL,
stress.width = NULL, stress.type = NULL, lwd = 1, xlab, ylab,
...)
{
if (missing(xlab)) {
xlab <- as.character(substitute(time))
if (any(class(get(search()[2])) == "data.frame")) {
if (any(attr(get(search()[2]), "names") == as.character(substitute(xlab)))) {
if (!is.null(attr(get(search()[2]), "var.labels")[attr(get(search()[2]),
"names") == as.character(substitute(xlab))])) {
if (attr(get(search()[2]), "var.labels")[attr(get(search()[2]),
"names") == as.character(substitute(xlab))] !=
"") {
xlab <- attr(get(search()[2]), "var.labels")[attr(get(search()[2]),
"names") == as.character(substitute(xlab))]
}
}
}
}
}
if (missing(ylab)) {
ylab <- as.character(substitute(outcome))
if (any(class(get(search()[2])) == "data.frame")) {
if (any(attr(get(search()[2]), "names") == as.character(substitute(ylab)))) {
if (!is.null(attr(get(search()[2]), "var.labels")[attr(get(search()[2]),
"names") == as.character(substitute(ylab))])) {
if (attr(get(search()[2]), "var.labels")[attr(get(search()[2]),
"names") == as.character(substitute(ylab))] !=
"") {
ylab <- attr(get(search()[2]), "var.labels")[attr(get(search()[2]),
"names") == as.character(substitute(ylab))]
}
}
}
}
}
plot(time, outcome, xlab = xlab, ylab = ylab, type = "n",
lwd = lwd, ...)
if (any(lty == "auto"))
lty <- rep(1, length(id))
id1 <- id
time1 <- time
by1 <- by
outcome1 <- outcome
if (is.null(n.of.lines)) {
if (!is.null(by)) {
id <- id[order(id1, time1, by1)]
id.factor <- factor(id)
time <- time[order(id1, time1, by1)]
outcome <- outcome[order(id1, time1, by1)]
by <- by[order(id1, time1, by1)]
by.factor <- factor(by)
if (any(line.col == "auto")) {
line.col <- 1:length(levels(by.factor))
}
for (i in 1:length(levels(by.factor))) {
for (j in 1:length(levels(id.factor))) {
lines(time[id.factor == levels(id.factor)[j] &
by.factor == levels(by.factor)[i]], outcome[id.factor ==
levels(id.factor)[j] & by.factor == levels(by.factor)[i]],
col = line.col[i], lty = i, lwd = lwd)
}
}
if (legend) {
legend(x = legend.site, legend = levels(factor(by)),
col = line.col, bg = "white", lty = 1:length(levels(factor(by))),
lwd = lwd)
}
}
else {
id <- id[order(id1, time1)]
id.factor <- factor(id)
time <- time[order(id1, time1)]
outcome <- outcome[order(id1, time1)]
if (length(levels(factor(id))) < 8) {
if (any(line.col == "auto"))
line.col <- 1:length(levels(id.factor))
for (j in 1:length(levels(id.factor))) {
lines(time[id.factor == levels(id.factor)[j]],
outcome[id.factor == levels(id.factor)[j]],
col = line.col[j], lwd = lwd, lty = lty[j])
}
if (legend) {
legend(x = legend.site, legend = levels(factor(id[order(id1)])),
col = line.col[1:length(levels(factor(id)))],
bg = "white", lty = lty, lwd = lwd)
}
}
else {
for (j in 1:length(levels(id.factor))) {
if (any(line.col == "multicolor")) {
lines(time[id.factor == levels(id.factor)[j]],
outcome[id.factor == levels(id.factor)[j]],
col = j, lwd = lwd)
}
else {
if (any(line.col == "auto"))
line.col <- "blue"
lines(time[id.factor == levels(id.factor)[j]],
outcome[id.factor == levels(id.factor)[j]],
col = line.col, lwd = lwd)
}
}
}
}
}
else {
order.id.selected <- sample(c(rep(TRUE, n.of.lines),
rep(FALSE, length(levels(factor(id))) - n.of.lines)))
if (!is.null(by)) {
id <- id[order(id1, time1, by1)]
time <- time[order(id1, time1, by1)]
outcome <- outcome[order(id1, time1, by1)]
by <- by[order(id1, time1, by1)]
id.factor <- factor(id)
by.factor <- factor(by)
if (any(line.col == "auto"))
line.col <- 1:length(levels(by.factor))
for (i in 1:length(levels(by.factor))) {
for (j in 1:length(levels(id.factor))) {
lines(time[id.factor == levels(id.factor)[j] &
by.factor == levels(by.factor)[i]] * order.id.selected[j],
outcome[id.factor == levels(id.factor)[j] &
by.factor == levels(by.factor)[i]] * order.id.selected[j],
col = line.col[i], lty = i, lwd = lwd)
}
}
if (legend) {
legend(x = legend.site, legend = levels(factor(by)),
col = line.col[1:length(levels(factor(by)))],
lty = 1:length(levels(factor(by))), bg = "white",
lwd = lwd)
}
}
else {
id <- id[order(id1, time1)]
id.factor <- factor(id)
time <- time[order(id1, time1)]
outcome <- outcome[order(id1, time1)]
for (j in 1:length(levels(id.factor))) {
if (any(line.col == "multicolor")) {
lines(time[id.factor == levels(id.factor)[j]] *
order.id.selected[j], outcome[id.factor ==
levels(id.factor)[j]] * order.id.selected[j],
col = j, lwd = lwd)
}
else {
if (any(line.col == "auto")) {
line.col <- "blue"
}
lines(time[id.factor == levels(id.factor)[j]] *
order.id.selected[j], outcome[id.factor ==
levels(id.factor)[j]] * order.id.selected[j],
col = line.col, lwd = lwd)
}
}
}
}
for (j in 1:length(levels(id.factor))) {
text(time[id.factor == levels(id.factor)[j]], outcome[id.factor ==
levels(id.factor)[j]], labels = j, col = any(stress.labels *
stress %in% j) * label.col)
}
for (j in 1:length(levels(id.factor))) {
lines(time[id.factor == levels(id.factor)[j]], outcome[id.factor ==
levels(id.factor)[j]], col = any(stress %in% j) *
stress.col, lwd = stress.width, lty = stress.type)
}
}
</font></pre></td></tr><tr><td align="left" style="font-family: 'DejaVu Sans Mono'; line-height: 1.3; vertical-align: top; "></td></tr><tr><td align="left" style="font-family: 'DejaVu Sans Mono'; line-height: 1.3; font-size: 10pt !important; vertical-align: top; ">
<font class="Apple-style-span" color="#0000ff"><span class="Apple-style-span" style="white-space: pre;"><br></span></font></td></tr></tbody></table></td></tr></tbody></table></span></span></font></font></div><div><font color="#000066"><font face="courier new,monospace">,<br clear="all">
</font></font>Abraço forte e que a força esteja com você,<br><br>Dr. Pedro Emmanuel A. A. do Brasil<br>Instituto de Pesquisa Clínica Evandro Chagas<br>Fundação Oswaldo Cruz<br>Rio de Janeiro - Brasil<br>Av. Brasil 4365, <br>
CEP 21040-360,<br>Tel 55 21 3865-9648<br>email: <a href="mailto:pedro.brasil@ipec.fiocruz.br" target="_blank">pedro.brasil@ipec.fiocruz.br</a><br>email: <a href="mailto:emmanuel.brasil@gmail.com" target="_blank">emmanuel.brasil@gmail.com</a><br>
<br>---Apoio aos softwares livres<br><a href="http://www.zotero.org" target="_blank">www.zotero.org</a> - gerenciamento de referências bibliográficas. <br><a href="http://www.broffice.org" target="_blank">www.broffice.org</a> ou <a href="http://www.libreoffice.org/" target="_blank">www.libreoffice.org</a> - textos, planilhas ou apresentações.<br>
<a href="http://www.epidata.dk" target="_blank">www.epidata.dk</a> - entrada de dados.<br><a href="http://www.r-project.org" target="_blank">www.r-project.org</a> - análise de dados.<br><a href="http://www.ubuntu.com" target="_blank">www.ubuntu.com</a> - sistema operacional<br>
<br><br><div class="gmail_quote">Em 27 de setembro de 2011 10:17, Benilton Carvalho <span dir="ltr"><<a href="mailto:beniltoncarvalho@gmail.com">beniltoncarvalho@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
R --vanilla<br>
<br>
iniciara' o R ignorando qq configuracao personalizada (.Rprofile) ou<br>
arquivos de inicializacao (.RData).<br>
<br>
Dificil dizer, sem ver os dados e sua estrutura, o que pode estar acontecendo.<br>
<br>
Uma sugestao (pouco provavel de ser associada a esse problema) e' usar<br>
outro nome para o conjunto de dados... Usar 'c' eh ligeiramente<br>
arriscado, ja' que existe um comando com o mesmo nome (eu sei, o R vai<br>
tentar diferenciar um do outro, mas nessas horas vc quer minimizar as<br>
possibilidades de problema).<br>
<br>
Um chute: vc tem algum objecto ou outro comando chamado followup??? Se<br>
sim, e' bem provavel ser um clash em S3 causado por desenvolvedores<br>
que insistem em nao usar NAMESPACE e/ou o autor do epicalc q escolheu<br>
um nome muito ruim pra funcao (a gente sempre pede: "nao crie funcoes<br>
com um ponto no nome"... e existe uma razao para isso).... Digite<br>
'followup' e veja o q acontece (ideal seria retornar um erro dizendo q<br>
o obj nao foi encontrado). Se retornar o corpo de uma funcao, ele<br>
dira' no final que pacote esta' definindo essa funcao... dai' use:<br>
<br>
detach("package:nome_do_pacote")<br>
<br>
e tente de novo.<br>
<div><div></div><div class="h5"><br>
<br>
b<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</div></div></blockquote></div><br></div>