реконструкция функции из ее логического портрета (паттерна)

создадим некий вектор х

set.seed(1)
x <- cumsum(rnorm(10))
plot(x,t="b")

теперь создадим его логический паттерн. Что я имею ввиду, мы просто берем вектор х , выбираем из него две точки и сравниваем их между собой логическим условием (первая точка больше второй? ответ TRUE/FALSE) и так по две точки перебираем все возможные комбинации в х для этого написал простую функцию to.logyc

to.logyc <- function(x){
cmb <- combn(length(x),2) # сзд. все комбинации индексов
logic.pattern <- rep(NA,ncol(cmb))

for(i in 1:ncol(cmb)){
  i1 <- cmb[1,i]
  i2 <- cmb[2,i]
  logic.pattern[i] <- x[i1] > x[i2]
}
return(logic.pattern)
}

запустим функцию to.logyc на векторе Х

 to.logyc(x)
 [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
[17] FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
[33] FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE FALSE  TRUE FALSE FALSE

на выходе получили логический вектор (логический паттерн) вектора Х

А теперь собственно сам вопрос как восстановить/реконструировать ветор Х по этому логическому паттерну, чтобы получить что то типа этого

rezult.pattern <- c(1,2,5,4,3,9,8,7,6,10)
plot(rezult.pattern,t="b")

можно сравнить, с логической точки зрение паттерны идентичны

orig.logyc <- to.logyc(x)
 reconst.logyc <- to.logyc(rezult.pattern)
 all( orig.logyc == reconst.logyc)
[1] TRUE