Я пытаюсь найти способ идентифицировать монотонные схемы ответов участников моего эксперимента.Например, если кто-то ответил на первый вариант, закодированный как «1» во всех первых 10 Вопросах.Я пытался сделать это со стандартным отклонением, которое должно быть равно нулю, если нет различий в ответах, но я пока не добился успеха.Вот моя попытка:
m.check <- function(data,startrow, endrow){
out <- ifelse(sapply(data, startrow:endrow,sd) ==0,T, F)
return(out)
}
data$mono <- m.check(as.numeric(data,1,10))