R/mobility_index.R

In lifecourse: Quantification of Lifecourse Fluidity

Defines functions mobility_index

Documented in mobility_index

mobility_index = function(seq,alphabet,nalpha){
  cumulative=1
  
  for(j in 1:(length(seq)-1)) {
    if(seq[j]!=seq[j+1]) {
      cumulative=cumulative+1
    }
  }
  
  return(cumulative)
}

Try the lifecourse package in your browser