Nothing
batchjacklociArp <-
function(rm.loci)
{
filelist=list.files(pattern='[.arp]$')
nbfiles=length(filelist)
for (t in 1 :nbfiles)
{
jacklociArp(filelist[t],rm.loci)
}
#créer le fichier batch pour Arlequin
arlfilelist=gsub(pattern='[.]arp', replacement='_jackloci.arp',filelist)
write.table(arlfilelist, file='batchjackloci.arb', quote=F, row.names=F, col.names=F, sep='\r')
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.