Ошибка: объект типа «замыкание» не является поднабором

Question

Я пытаюсь получить доступ к значениям из Bond_Prices, одного из результатов функции portfolio_price в цикле for вне функции, но я получаю следующую ошибку:

"Ошибка в portfolio_price $ Bond_Prices: объект типа 'замыкание' не является поднабором ".

Может ли кто-нибудь помочь мне с этим?

Я пытался использовать portfolio_price$Bond_Prices[1], а также bond_prices. Выходные данные Bond_Prices -

$Bond_Prices
 [1] 96.15385 86.13218 88.89964 76.28952 75.61329 72.52458 75.99178 68.98708 67.29044 61.39133 61.61987 62.45970 53.03214

, поэтому я ожидал, что portfolio_price$Bond_Prices[1] вернет 96.15385

portfolio_price <- function(){
  bond_prices <- c()

  for(i in 1:length(table_2b$Bond)){
    B0 <- face_value_2/(1+table_2b$Coupon_Rate[i])^i
    bond_prices[i] = B0
    }

  bond_prices_sum <- 0

  for(i in 1:length(table_2b$Bond)){
    bond_prices_sum <- sum(bond_prices_sum,bonds_price[i]*(table_2b$Quantity[i]/table_2b$Quantity))
    }  

  return(list(Bond_Prices = bond_prices, Portfolio_Price = bond_prices_sum))
  }