"Australia Australia ..."

1,1,...,2,2,...,4,4.. etc.

gdppc=read.xlsx("H:/dissertation/ALL/YAS.xlsx",sheetIndex = 1,startRow = 1)
countryvec=gdppc[,1]
country=c()
for (j in 1:43){
  x=rep(countryvec[j],25)
  country=append(country,countryvec)
}