Мне нужно выполнить скользящую оценку VaR ежедневной доходности акций. Сначала я сделал следующее: library(PerformanceAnalytics) data(edhec) sample<-edhec[,1:5] var605<-rollapply(as.zoo(sample),width=60,FUN=function(x)...

У меня возникают ошибки с математикой в ​​моем калькуляторе погашения кредита. Я пытаюсь создать класс, в котором я могу создать кредит, повторять его по месяцам или годам, а также применять платежи по кредиту. Я не совсем уверен, где моя проблема...

мой набор данных выглядит так: set.seed(1234) mydata <- data.frame("Returns" = sample(1:20,200, replace=T), "Vol" = 0) Я рассчитал годовую дневную волатильность для первых 21 строк в новом столбце: d_vol <- sd(mydata$Returns[1:21])...