<div dir="ltr"><div><span style="font-family:arial,sans-serif;font-size:13px">Olá Alexandre,</span><br></div><div><span style="font-family:arial,sans-serif;font-size:13px"><br></span></div><div><span style="font-family:arial,sans-serif;font-size:13px">tente assim:</span></div>
<div><span style="font-family:arial,sans-serif;font-size:13px"><br></span></div><div><span style="font-family:arial,sans-serif;font-size:13px">ybinom <- </span><span style="font-family:arial,sans-serif;font-size:13px">da$y<br>
</span><div><span style="font-family:arial,sans-serif;font-size:13px">ybinom</span><span style="font-family:arial,sans-serif;font-size:13px">[</span><span style="font-family:arial,sans-serif;font-size:13px">da$y >0] <- 1</span><br>
</div></div><div class="gmail_extra"><br><br>Gledson<br></div><div class="gmail_extra"><br></div><div class="gmail_extra"><br><div class="gmail_quote">Em 8 de novembro de 2013 12:42, ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Boa tarde pessoal,<br>
<br>
No seguinte exemplo:<br>
<br>
da <- expand.grid(trat=gl(2,1), tempo=1:10)<br>
X <- model.matrix(~trat+tempo, da); ncol(X)<br>
betas <- c(0.1,0.1,0.3)<br>
eta <- X%*%betas<br>
y1 <- rpois(da$trat, lambda=exp(eta))<br>
y2 <- rbinom(y1, size=1, prob=0.7)<br>
da$y <- y1*y2<br>
head(da)<br>
<br>
Gostaria de criar um novo vetor ybinom, através da substituição de valores em da$y >0 por 1, e os zeros continuam zeros mesmo. Alguém poderia me dar um help?<br>
<br>
Obrigado,<br>
<br>
-- <br>
==============================<u></u>==============================<u></u>==========<br>
Alexandre dos Santos<br>
Proteção Florestal<br>
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso<br>
Campus Cáceres<br>
Caixa Postal 244<br>
Avenida dos Ramires, s/n<br>
Bairro: Distrito Industrial<br>
Cáceres - MT                      CEP: 78.200-000<br>
Fone: <a href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a> (TIM)   <a href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a> (VIVO)<br>

<a href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@<u></u>yahoo.com.br</a><br>
        <a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.<u></u>br</a><br>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/<u></u>1360403201088680</a><br>
==============================<u></u>==============================<u></u>==========<br>
<br>
______________________________<u></u>_________________<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" target="_blank">https://listas.inf.ufpr.br/<u></u>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-<u></u>guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br></div></div>