Заблокировать начальную загрузку с помощью isplit

У меня есть следующий пример набора данных

Sites<-c("A","A","B","B","B","C","C","C")
TR<-c(0.1,0.4,0.4,0.3,0.3,0.6,0.5,0.5)
df<-data.frame(Sites,TR)

Я хотел бы подмножить строки по переменной «Сайты», а затем загрузить каждую скорость ловушки сайта (TR). Я попытался использовать следующий код

require(iterators)
sites<-isplit(df,df$Sites)
nextElem(sites)
require(foreach)
mT<-foreach(Sites=sites)%do%

{
meanTraps <- vector()
for(i in 1:boots){
  meanTraps[i] <- mean(sample(sites$value$TR, nrow(sites$value), replace = TRUE))
}
}

Но это просто возвращает

list()

В идеале мне нужен фрейм данных со средними ловушками для каждого сайта. Может ли кто-нибудь помочь исправить мою ошибку?