Эффективный способ вызова и извлечения выходных данных из функции onlineCPD
Есть ли более эффективный метод при вызове и извлечении вывода из $currmu от onlineCPD Функция использования цикла, когда входящие данные находятся в онлайн-виде (потоковое)?
library(ocp)
set.seed(999)
#data
df <- c(rnorm(20,5,1), rnorm(30,15,2), rnorm(20,7,3))
#online method
i <- 1
online.result <- vector(mode="numeric", length=length(df))
while(i <= length(df)){
online.result[i] <- as.numeric((onlineCPD(df[1:i])$currmu)[i]) #problem here
i = i + 1
}
#offline method
offline <- onlineCPD(df)
offline.result <- unlist(offline$currmu)
identical(offline.result, online.result) #TRUE
Как вы можете видеть из offline переменная, она выплевывает много информации, это нормально, учитывая, что это автономная версия. Однако в цикле while мы продолжаем вызывать и извлекать этот очень специфический i-й $currmu по мере поступления данных.
Было бы проблемой, когда df становится достаточно большим и объединяется во вложенный список.