<div dir="ltr"><div><br></div>use a função <b>reshape</b> conforme código a seguir:<br><br>reshape(dados, v.names = "ord_cartao", idvar = "idquestionario",<br>        timevar = "cod_cartao", direction = "<b>wide</b>")<br><div><div class="gmail_extra"><br><br>em que dados (codificando mortes por 99999) é:<br></div><div class="gmail_extra">dados<-structure(list(idquestionario = c(1, 1, 1, 1, 1, 1, 1, 1, 1, <br>10, 10, 10, 10, 10, 10, 10, 10, 10), cod_cartao = c(33333, 99999, <br>12123, 22332, 32332, 11111, 33132, 33231, 21333, 23222, 99999, <br>12233, 33333, 12111, 22332, 11333, 32213, 11111), ord_cartao = c(5, <br>4, 2, 3, 5, 1, 5, 5, 3, 7, 9, 4, 8, 2, 5, 3, 6, 1)), .Names = c("idquestionario", <br>"cod_cartao", "ord_cartao"), row.names = c(NA, -18L), class = "data.frame")<br></div><div class="gmail_extra"><br clear="all">Diogo Braga Mendes<div class="gmail_signature"><div>Estatístico do IPAMB-Belém/PA.<br><div>Mestre em Estatística-PPGME/UFPA.<br>Bacharel em Estatística, CONRE 9558.<div><br></div></div></div></div>
</div></div></div>