Nothing
seqetm <- function(seqdata, method = "transition", use.labels = TRUE, sep = ">",
bp = "", ep = "end", seq) {
TraMineR.check.depr.args(alist(seqdata = seq))
statl <- alphabet(seqdata)#seqstatl(seqdata)
nr <- attr(seqdata, "nr")
has.nr <- any(seqdata==nr)
if (has.nr) {
statl <- c(statl, nr)
}
void <- attr(seqdata, "void")
has.void <- any(seqdata==void)
if (has.void) {
statl <- c(statl, void)
}
nbstat <- length(statl)
tevent <- matrix(nrow=nbstat, ncol=nbstat)
rownames(tevent) <- statl
colnames(tevent) <- statl
alphabet <- statl
if (use.labels && inherits(seqdata, "stslist")) {
#label<-alphabet(seqdata)
label <- attr(seqdata, "labels")
if (has.nr) {
label <- c(label, nr)
}
if (has.void) {
label <- c(label, void)
}
if(length(label)==length(alphabet)){
alphabet <- label
}
else if(length(label)>0){
warning("Length of the labels and of the alphabet are not equal")
}
}
if(any(grepl(",", alphabet))){
warning(" [!] Alphabet and/or state labels should not contain commas ',' which are reserved for separating multiple events of a same transition!\n")
}
for(i in 1:nbstat){
for(j in 1:nbstat){
if(i==j){
tevent[i,j] <- alphabet[[i]]
}else{
if(method=="transition"){
tevent[i,j] <- paste(alphabet[[i]], alphabet[[j]], sep=sep)
}else if(method == "period"){
tevent[i,j] <- paste(ep, alphabet[[i]], ",", bp, alphabet[[j]], sep="")
}else if(method == "state"){
tevent[i,j] <- alphabet[[j]]
}
}
}
}
return(tevent)
}
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.