@@ -1,4 +1,4 @@
-- Аннуитетный платеж (Аннуитет)
+= Аннуитетный платеж (Аннуитет)
 
 ''''''ToDo'''''' статьи:
 	* пример на ЯзыкR:
@@ -9,11 +9,11 @@
 	* переписать определение
 	* общее описание
 
--- Определение
+- Определение
 
 	'''Аннуитет''' : платеж по кредиту, равномерный в течение всего срока действия кредитного договора, позволяющий полностью покрыть сумму основного долга и начисленных процентов к последнему платежу по кредиту
 
--- Вывод формулы
+- Вывод формулы
 
 Кредит с параметрами: величина кредита — $$ P $$ рублей, номинальная процентая ставка — $$ j $$ процентных пунктов, используются сложные проценты, срок — $$ m $$ лет, ежемесячная капитализация процентов, равномерные (аннуитетные) платежи $$ A $$.
 
@@ -74,7 +74,7 @@
 
 Пример: квартира в Сыктывкаре, стоимостью 3 млн. рублей. Первоначальный взнос составляет 20%, срок кредита — 20 лет, годовая ставка процента — 15% с ежемесячной капитализацией (начислением процентов каждый месяц по принципу сложных процентов).
 
-%NF
+===
  # 
  aparment.price <- 3E6
  initial.payment.rate <- 0.20
@@ -104,24 +104,24 @@
  vec.num.of.payment <- c(0:n)
  df.pay.list <- data.frame(vec.dates, vec.annuity, vec.num.of.payment)
  names(df.pay.list) <- c('Date of Payment', 'Annuity Payment', 'Number of Payment')
- df.pay.list[, 'Outstanding Amount Start'] <- NA
- df.pay.list[, 'Outstanding Amount Finish'] <- NA
+ df.pay.list[[, 'Outstanding Amount Start']] <- NA
+ df.pay.list[[, 'Outstanding Amount Finish']] <- NA
  for (i in 0:n){
    if (i == 0) {
-     df.pay.list[, 'Outstanding Amount Start'][(i + 1)] <- mortgage.amount
-     df.pay.list[, 'Outstanding Amount Finish'][(i + 1)] <- mortgage.amount * (1 + rate)
+     df.pay.list[[, 'Outstanding Amount Start']][[(i + 1)]] <- mortgage.amount
+     df.pay.list[[, 'Outstanding Amount Finish']][[(i + 1)]] <- mortgage.amount * (1 + rate)
    } else {
-     df.pay.list[, 'Outstanding Amount Start'][(i + 1)] <- (
-       df.pay.list[, 'Outstanding Amount Finish'][i] - df.pay.list[, 'Annuity Payment'][(i + 1)]
+     df.pay.list[[, 'Outstanding Amount Start']][[(i + 1)]] <- (
+       df.pay.list[[, 'Outstanding Amount Finish']][[i]] - df.pay.list[[, 'Annuity Payment']][[(i + 1)]]
      )
-     df.pay.list[, 'Outstanding Amount Finish'][(i + 1)] <- (
-       df.pay.list[, 'Outstanding Amount Start'][(i + 1)] * (1 + rate)
+     df.pay.list[[, 'Outstanding Amount Finish']][[(i + 1)]] <- (
+       df.pay.list[[, 'Outstanding Amount Start']][[(i + 1)]] * (1 + rate)
      )
    }
  }
- df.pay.list[, 'Outstanding Amount Start'] <- round(df.pay.list[, 'Outstanding Amount Start'], 2)
- df.pay.list[, 'Outstanding Amount Finish'] <- round(df.pay.list[, 'Outstanding Amount Finish'], 2)
+ df.pay.list[[, 'Outstanding Amount Start']] <- round(df.pay.list[[, 'Outstanding Amount Start']], 2)
+ df.pay.list[[, 'Outstanding Amount Finish']] <- round(df.pay.list[[, 'Outstanding Amount Finish']], 2)
  df.pay.list
-%NE
+===
 
 # КатегорияФинансоваяМатематика