<font face="trebuchet ms,sans-serif">Estou certo de que haverão soluções inteligentes de BC, HD e PJ, entre outros, minha solução rápida seria<br><br><span style="font-family: courier new,monospace;">dna <- c("A","T","G","C") # bases do DNA</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">d1 <- as.data.frame(matrix(sample(dna,20,TRUE), ncol=4), stringsAsFactors=FALSE)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">d2 <- as.data.frame(matrix(sample(dna,20,TRUE), ncol=4), stringsAsFactors=FALSE)</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">colcom <- intersect(names(d1), names(d2)) # colunas comuns</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">sap <- sapply(colcom,</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">              function(i){</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">                ifelse(d1[,i]==d2[,i],1,0)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">              })</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">as.data.frame(sap)</span><br style="font-family: courier new,monospace;"><br>À disposição.<br>Walmes.<br><br clear="all"></font><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Walmes Marques Zeviani</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">fone: (+55) 41 3361 3573</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">VoIP: (3361 3600) 1053 1173</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">twitter: @walmeszeviani</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">linux user number: 531218</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br>