Я создаю фиктивную переменную - 1, если предыдущая строка имеет тот же вид, 0 в противном случае.
Я использую это для изучения функций применения.
Я могу это сделатьдля всего набора, но не для указанного вектора.
Вот как я пытаюсь это сделать.
sapply(iris$Species, function(x)ifelse(x==lag(x,1),1,0))
Возвращает список NA.
Примечание: удаление $ Species возвращает правильные значения для всего набора
Я знаю, что есть более быстрые способы сделать это (см. Ниже), я просто пытаюсь изучить функции применения.
index = which(iris$Species==lag(iris$Species,1))
same = rep(0,nrow(test))
same[index] = 1
iris[,'test'] = same