Nothing
## TRANSFORMATION DE SEQUENCES DE CARACTERES EN SEQUENCES NUMERIQUES
## Returns a matrix with integer coding of the sequences
## ToDo: Check if different from seqnum
## seqnum returns an stslist object with a numeric alphabet
## seqasnum returns a numeric matrix
seqasnum <- function(seqdata, with.missing=FALSE) {
mnum <- matrix(NA,nrow=seqdim(seqdata)[1],ncol=seqdim(seqdata)[2])
rownames(mnum) <- rownames(seqdata)
colnames(mnum) <- colnames(seqdata)
statl <- attr(seqdata,"alphabet")
if (with.missing)
statl <- c(statl, attr(seqdata, "nr"))
for (i in 1:length(statl)) {
mnum[seqdata==statl[i]] <- i-1
}
return(mnum)
}
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.