<div dir="ltr"><div>Edson, boa tarde!</div><div><br></div><div>Não sei se entendi direito, mas acredito que alguma das opções abaixo irá servir...</div><div><br></div><div>### <code r></div><div>### <adicionar ao script original></div>
<div><font face="courier new, monospace">teste$comp <- as.integer(teste$comp)</font></div><div><font face="courier new, monospace">str(teste$comp)</font></div><div><font face="courier new, monospace">#  int [1:6] 1 1 NA 1 1 1</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">with(teste, table(ano, comp))</font></div><div><font face="courier new, monospace">with(teste, table(paste(ano, NUMEROBOLSA), comp))</font></div>
<div><font face="courier new, monospace">with(teste, xtabs(comp~ano+NUMEROBOLSA))</font></div><div><font face="courier new, monospace">with(teste, xtabs(comp~ano))</font></div><div><font face="courier new, monospace">### </code></font></div>
<div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br></div></div>