R/cluster.R

In jinyizju/V.PhyloMaker: Make phylogenetic hypotheses for vascular plants, etc.

cluster <-
function(data)
{
  n <- 1
  for (i in 1 : (length(data) - 1))
    {
      if (data[i] != data[i + 1]) 
        {
          n[i + 1] <- n[i] + 1
        }
      else
        {
          n[i + 1] <- n[i]
        }
    }
  return(n)
}