## ====================================
## Function to set the color palette
## of a sequence object
## ==================================== 

"cpal<-" <- function(seqdata, value) {

	if (!inherits(seqdata,"stslist")) 
		stop("data is not a sequence object, see seqdef function to create one")

	nbstate <- length(alphabet(seqdata))
	if (length(value)!=nbstate) 
		stop("number of colors must be",nbstate)
		attr(seqdata,"cpal") <- value


Try the TraMineR package in your browser

Any scripts or data that you put into this service are public.

TraMineR documentation built on May 29, 2024, 5 a.m.