+ sigma[Year==t,s]<-sd(reti[Year==t,s],na.rm=T)
+ }
Error in sd(reti[Year == t, s], na.rm = T) :
  (subscript) logical subscript too long

How to fix????help please!!