powered by
rowmode(v, except = NULL)
except="*"
table
data(actcal) actcal.seq <- seqdef(actcal[1:10,13:24]) actcal.mod <- apply(as.matrix(actcal.seq), 1, rowmode) head(actcal.mod)
Run the code above in your browser using DataLab