Есть таблица данных, из одного столбца. Обхожу его с помощью рекурсии. В функции изменяю данные таблицы. Во время выполнения данные меняются, увидел это через print, однако после завершения выполнения данные в таблице не сохраняются.
Код:
data$Fx <- c(0) # создание столбца для значений F(x)
data$Flag <- c(FALSE) # столбец для проверки вставки
data$V1 <- sort(data$V1)
MPM <- function (n, N, START, END) {
ln = END - START + 1
if (ln%%2 == 0) {
leftX = ln/2
rightX = leftX+1
if (data$Flag[leftX])
return()
data$Fx[leftX] <- n
data$Fx[rightX] <- n
data$Flag[leftX] = TRUE
data$Flag[rightX] = TRUE
if (ln/2 >= START)
MPM(n-0.5/2^N, N+1, START, ln/2)
if (ln/2+1 <= END)
MPM(n+0.5/2^N, N+1, ln/2 + 1, END)
} else {
md = ln %/% 2 + 1
if (data$Fx[md])
return()
data$Fx[md] <- n
data$Flag[md] = TRUE
if (ln != 1)
{
if (ln%/%2 >= START)
MPM(n-0.5/2^N, N+1, START, ln%/%2)
if (ln%/%2 + 2 <= END)
MPM(n+0.5/2^N, N+1, ln%/%2 + 2, END)
}
}
}
MPM(0.5, 1, 1, 3)
View(data)
R сегодня только начал изучать. Пробую его для выполнения лаб.