используя loop (i) в r-extension netlogo

Question

У меня проблема с использованием цикла с i в r-extension netlogo. Могу ли я использовать цикл таким образом? Пожалуйста, порекомендуйте.

      extensions [gis csv matrix r]

globals [
dataname
]

to setup
  ca
  reset-ticks

r:eval "dataname <- read.table(file = 'C:/WORK/PROJECTS/COVID19_ABM/STATA/SALE_COVID_ALL_Dong_GIS_sm_sample_2.csv', sep = ',')" ; read file
show r:get "dataname"  

r:eval "headlist <- dataname[1,]"
show r:get "headlist"

r:eval "dim_headlist <- dim(headlist)"
let colcount item 1 r:get "dim_headlist" 
let colcount_r ((colcount - 1) / 4)
show colcount_r


let i 1
  repeat colcount_r [
      r:eval "df_i <- dataname[,1:(4 * i)]"
      set i ( i + 1 )
  ]


file-close;
end

'' '

и ошибка сказала ---

Исключение расширения: ошибка в R-расширении: ошибка в Eval:org.nlogo.api.ExtensionException: ошибка в [.data.frame(имя_данных`` 1:(4 * i)): объект 'i' не найден

ошибка при запуске наблюдателя R:EVAL, вызываемого процедурой SETUP, вызываемой кнопкой 'setup'