用C++给R语言加速：Rcpp简单用法

作者：黄天元，复旦大学博士在读，热爱数据科学与开源工具（R），致力于利用数据科学迅速积累行业经验优势和科学知识发现，涉猎内容包括但不限于信息计量、机器学习、数据可视化、应用统计建模、知识图谱等，著有《R语言高效数据处理指南》（《R语言数据高效处理指南》(黄天元)【摘要 书评 试读】- 京东图书）。知乎专栏：R语言数据挖掘。邮箱：huang.tian-yuan@qq.com.欢迎合作交流。

近要做一个小任务，它的描述非常简单，就是识别向量的变化。比如一个整数序列是“4,4,4,5,5,6,6,5,5,5,4,4”，那么我们要根据数字的连续关系来分组，输出应该是“1,1,1,2,2,3,3,4,4,4,5,5”。这个函数用R写起来非常简单，稍加思考草拟如下：

get_id = function(x){
  z = vector()
  y = NULL
  for (i in seq_along(x)) {
    if(i == 1) y = 1
    else if(x[i] != x[i-1]) y = y + 1
    z = c(z,y)
  }
  z
}