<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Obrigado Rodrigo,<br>
<br>
Na verdade a concatenação (c()) foi um deslize, mas eu queria
fazer:<br>
<br>
dados.bin <- dados[rep(1:nrow(dados), times=dados$y), -3]<br>
<br>
censor<-rep(1,length(dados.bin[,1]))<br>
<br>
dados.final<- cbind(dados.bin,censor)<br>
<br>
Só que tenho n.indv<-100 - Número de indivíduos por tratamentos -
e agora preciso adicionar uma repetição de zeros<br>
no objeto censor equivalente a n.indv que restaram vivos (n.indv -
soma de mortos por tratamento) , mas de maneira <br>
mais automatizada que a que venho fazendo, teria alguma sugestão?<br>
<br>
Obrigado,<br>
<br>
<br>
<pre class="moz-signature" cols="72">--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
======================================================================
</pre>
<br>
<br>
<br>
<br>
<br>
<div class="moz-cite-prefix">Em 10/12/2013 09:43, Rodrigo Coster
escreveu:<br>
</div>
<blockquote
cite="mid:CAKU4wovb8sx9P=SmH=dF65N9aprXAdNjxh_D_nk4nTvtCkyKEw@mail.gmail.com"
type="cite">
<div dir="ltr">Pq tu ta usando c() e não rbind()... c() transforma
tudo em vetor.
<div><br>
</div>
<div>Pelo que eu entendi, o que tu quer é isso:</div>
<div><br>
</div>
<div>dados.bin <- dados[rep(1:nrow(dados), times=dados$y),
-3]<br>
</div>
<div><br>
</div>
</div>
<div class="gmail_extra"><br>
<br>
<div class="gmail_quote">2013/12/10 ASANTOS <span dir="ltr"><<a
moz-do-not-send="true"
href="mailto:alexandresantosbr@yahoo.com.br"
target="_blank">alexandresantosbr@yahoo.com.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">Caros
Membros,<br>
<br>
Estou tentando converter dados de contagem de insetos
mortos em notação binomial e estou fazendo algo errado, pois
se tenho:<br>
<br>
trat<-gl(5,10) ## 5 tratamentos com dez repetições<br>
<br>
tempo<- gl(10,50) ## 10 avaliações no tempo<br>
<br>
dados<-expand.grid(trat, tempo)<br>
<br>
colnames(dados)<-c("trat","tempo")<br>
<br>
y<-rpois(length(dados[,1]),10) ## Simula a variável
resposta<br>
<br>
dados<-cbind(dados,y)<br>
<br>
## Converter os dados de contagem em binomial, por ex. se
tenho 5, devo converter em 1 1 1 1 1<br>
<br>
dados.bin <- NULL<br>
for (i in 1:nrow(dados))<br>
dados.bin <- c(dados.bin,<br>
rep(c(1,dados[i,3])))<br>
<br>
Por que para cada valor de contagem na coluna dados[,3] não
tenho a transformação que espero?<br>
<br>
Obrigado,<br>
<br>
-- <br>
======================================================================<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 moz-do-not-send="true"
href="tel:%28%2B55%29%2065%208132-8112"
value="+556581328112" target="_blank">(+55) 65 8132-8112</a>
(TIM) <a moz-do-not-send="true"
href="tel:%28%2B55%29%2065%209686-6970"
value="+556596866970" target="_blank">(+55) 65 9686-6970</a>
(VIVO)<br>
<a moz-do-not-send="true"
href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br"
target="_blank">e-mails:alexandresantosbr@yahoo.com.br</a><br>
<a moz-do-not-send="true"
href="mailto:alexandre.santos@cas.ifmt.edu.br"
target="_blank">alexandre.santos@cas.ifmt.edu.br</a><br>
Lattes: <a moz-do-not-send="true"
href="http://lattes.cnpq.br/1360403201088680"
target="_blank">http://lattes.cnpq.br/1360403201088680</a><br>
======================================================================<br>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a moz-do-not-send="true"
href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a moz-do-not-send="true"
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 moz-do-not-send="true"
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>
</blockquote>
</div>
<br>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
</body>
</html>