seqpm: " ", , . , ( ). , .
, , , seqecreate, seqefsub seqeapplysub. actcal, TraMineR.
library(TraMineR)
data(actcal)
actcal.seq <- seqdef(actcal[,13:24])
#
head(actcal.seq)
#
actcal.seqe <- seqecreate(actcal.seq, tevent = "state", use.labels=FALSE)
#
head(actcal.seqe)
#
subs <- seqefsub(actcal.seqe, strsubseq=c("(A)-(D)","(D)-(B)"))
#
subs.pres <- seqeapplysub(subs, method="presence")
head(subs.pres)
#
sum(subs.pres[,1])
#
rownames(subs.pres)[subs.pres[,1]==1]
, .