<div dir="ltr">Prezado 'branco.sk8',<div><br></div><div>Sugiro que você envie um <i>dataset </i>básico para apoiar sua questão. Um código mínimo mostrando o que você já conseguiu também é bem-vindo. Feito isso, acredito que será mais fácil entender o que você precisa e conseguir ajuda...</div>
<div><br></div><div>Talvez o código abaixo pode lhe servir como referência:</div><div><br></div><div>### <code r></div><div><div><font face="courier new, monospace">if (!require(fmsb)) {install.packages('fmsb', dep=T); require(fmsb)}</font></div>
<div><font face="courier new, monospace">if (!require(vcd))  {install.packages('vcd', dep=T);  require(vcd)}</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">data <- data.frame(</font></div>
<div><font face="courier new, monospace">          id=rep(c('MALE','FEMALE'),each=20), </font></div><div><font face="courier new, monospace">          resp=c("N", "S", "N", "N", "S", "S", "S", "S", "S", "N", "S", "S",</font></div>
<div><font face="courier new, monospace">                 "S", "S", "SR", "SR", "N", "SR", "S", "S", "S", "N", "N", "S", </font></div>
<div><font face="courier new, monospace">                 "S", "N", "S", "S", "S", "S", "S", "N", "S", "S", "S", "N", "S", </font></div>
<div><font face="courier new, monospace">                 "SR", "S", "SR"))</font></div><div><span style="font-family:'courier new',monospace">table(data$id)</span><br></div><div><span style="font-family:'courier new',monospace"><br>
</span></div><div><span style="font-family:'courier new',monospace">MALE   <- data$resp[data$id=='MALE']</span><br></div><div><font face="courier new, monospace">FEMALE <- data$resp[data$id=='FEMALE']</font></div>
<div><font face="courier new, monospace">tab <- table(FEMALE,MALE); tab</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">tmp <- rbind(tab, FEMALE=margin.table(tab, 1))</font></div>
<div><font face="courier new, monospace">tabtot <- cbind(tmp, MALE=margin.table(tmp, 1)); tabtot</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">Kappa(tab)</font></div>
<div><font face="courier new, monospace">Kappa.test(tab)</font></div></div><div><font face="courier new, monospace">### </code></font></div><div><br></div><div><br></div><div><br></div><div><br><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></div>