b<-as.data.frame(Base, nrow(length(Base)), ncol(5))
for(i in seq(names(Base))){
  j<-names(Base)[i]
  i + 1
}
b

Year  A  B  C  D
2010  50 60 70 80
2011  10 44 28 20
2012  65 75 65 89
...

Year  A  B  C  D
2011  51 61 71 81
2012  11 45 29 21
2013  66 76 66 90
...