<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Walmes, <br>
<br>
Perfeito, mas agora preciso achar um jeito para registrar os
indivíduos que permanecem vivos no último tempo, através da
declaração do número de indivíduos (tot) por tratamento, sendo:<br>
<br>
dados <- expand.grid(trat=gl(3,4), tempo=1:5)<br>
dados$y <- rpois(nrow(dados), lambda=10)<br>
dados$z <- 1<br>
<br>
dados2 <- dados[rep(1:nrow(dados), dados$y),]<br>
<br>
xtabs(y~trat+tempo, data=dados)<br>
xtabs(z~trat+tempo, data=dados2)<br>
<br>
tot.dead<-with(dados2, tapply(z, list(trat), sum, na.rm = T))<br>
tot<-212 ### Número de insetos por tratamento<br>
dif<-tot-tot.dead<br>
dif<br>
# <br>
1 2 3 <br>
10 36 9 <br>
<br>
Essa diferença (dif) precisa ser representada por zeros no
max(tempo) e fundido a variável z no objeto dados2, com isso consigo
criar a variável reposta para realizar análises de sobrevivência,<br>
<br>
como eu poderia fazer isto? Tenho tentado criar um rep(0, dif[,i])
no max(dados2$tempo), mas sem sucesso,<br>
<br>
Obrigado,<br>
<br>
<div class="moz-cite-prefix">Em 10/12/2013 13:33, walmes . escreveu:<br>
</div>
<blockquote
cite="mid:CAFU=Eka=DgEiWS1NCKx2m72CVjLuyYum1cwEeg1vkkM1zJJfcw@mail.gmail.com"
type="cite">
<div dir="ltr">
<div class="gmail_default" style="font-family:trebuchet
ms,sans-serif">Acredito que o jeito mais simples seja assim<br>
<br>
<span style="font-family:courier new,monospace">dados <-
expand.grid(trat=gl(3,4), tempo=1:5)<br>
dados$y <- rpois(nrow(dados), lambda=10)<br>
dados$z <- 1<br>
<br>
dados2 <- dados[rep(1:nrow(dados), dados$y),]<br>
<br>
xtabs(y~trat+tempo, data=dados)<br>
xtabs(z~trat+tempo, data=dados2)<br>
</span><br>
À disposição.<br>
Walmes.<br>
<br>
</div>
</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>
<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>
</body>
</html>