1 | seq.list.con(seqlist, cores = 1)
|
seqlist |
|
cores |
1 2 3 4 5 6 7 8 9 10 11 12 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (seqlist, cores = 1)
{
seqlist <- mclapply(seqlist, seq.con, mc.cores = cores)
pseudo <- di.freq.pseudo(seqlist)
return(mclapply(seqlist, function(seq) seq.con(seq$sequence,
pseudo), mc.cores = cores))
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.