Test if is a proper state sequence (stslist) object
The function tests whether x is of class stslist and if its weights attribute has the expected length and names.
is.stslist(x)
x |
object to be tested. |
Logical: result of the test.
Gilbert Ritschard
## Creating a sequence object with the columns 13 to 24
## in the 'actcal' example data set
data(biofam)
biofam <- biofam[sample(nrow(biofam),300),]
biofam.lab <- c("Parent", "Left", "Married", "Left+Marr",
"Child", "Left+Child", "Left+Marr+Child", "Divorced")
biofam.seq <- seqdef(biofam[,10:25], weights=biofam$wp00tbgs)
is.stslist(biofam.seq) #TRUE
attr(biofam.seq,"weights") <- NULL
is.stslist(biofam.seq) #TRUE
attr(biofam.seq,"weights") <- rep(1, nrow(biofam.seq))
is.stslist(biofam.seq) #FALSE
w <- rep(1, nrow(biofam.seq))
names(w) <- rownames(biofam.seq)
attr(biofam.seq,"weights") <- w
is.stslist(biofam.seq) #TRUEPlease choose more modern alternatives, such as Google Chrome or Mozilla Firefox.