давайте посмотрим, у меня есть следующие данные
myList <-list(1,2,3,4,5,6,7,5,8,9,10,8,7,6)
Теперь я хочу распознать некоторые шаблоны и сохранить все позиции / клавиши , где значения соответствуют одному или нескольким шаблонам. Например:
1) последовательность (например, 3 элемента) под некоторым значением (4) / выше некоторого значения (4):
pattern_UnderTheMean <-list(0,1,2); pattern_AboveTheMean <-list(list(4,5,6),list(8,9,10))
2) последовательность (например, как минимум 3 элемента), где следующие элементы ниже / больше, чем фактический элемент:
pattern_Increasing <-list(0,1,2,3,4,5,6); pattern_Decreasing <-list(10,11,12,13)
Таким образом, конечный результат должен выглядеть следующим образом:
patternList$pattern_UnderTheMean <- list(0,1,2);
patternList$pattern_AboveTheMean <- list(list(4,5,6),list(8,9,10));
patternList$pattern_Increasing <- list(0,1,2,3,4,5,6);
patternList$pattern_Decreasing <- list(10,11,12,13);
Откровенно говоря, у меня нет лучшей идеи, чем перебирать все элементы в myList, создавать tempLists для каждого случая и добавлять списки в корневой каталог patternList.
Это кажется мне очень неэффективным. Есть ли лучшее / более эффективное решение? Может быть объяснено для одного из моих шаблонов?
Заранее спасибо!