R/seqfcheck.R

In TraMineR: Trajectory Miner: a Sequence Analysis Toolkit

## CHECK IF THE SEQUENCES ARE IN THE COMPRESSED FORMAT

seqfcheck <- function(seqdata) {
	seqdata <- as.matrix(seqdata)

	if (is.numeric(seqdata)) { 
		if (any(seqdata<0,na.rm=TRUE)) format <- "-X"
		else format <- "X"
	}
	else {
		if (ncol(seqdata)==1) {
			if (length(grep("-",seqdata))>0) format <- "-"
			else if (length(grep(":",seqdata))>0) format <- ":"
			else format <- "?"
		}
		else {
			if (length(grep("-",seqdata))>0) format <- "-X"
			else format <- "X"
		}
	}

	return(format)
}