Error in `$<-.data.frame`(`*tmp*`, n, value = 1:0) : 
  replacement has 2 rows, data has 0
Calls: $<- -> $<-.data.frame
Execution halted