open Data_Extract_From_World_Development_Indicators-3.xlsx -q

v = 16
N = $nobs/v
T = 5
NT = N * T

list L = YR*
set skip_missing off
matrix Data = {L}
matrix X = zeros(NT, v)

strings cnames = strvals(CountryCode)

loop j=1..v # across the series (columns)
   rl = 1 # row,left
   rr = j # row,right
   loop i=1..N # across countries
      loop t=1..T # years
         X[rl,j] = Data[rr,t]
         rl++
      endloop
      rr += 16
   endloop
endloop

strings S = defarray("GDP", "birthrate", "lifeexp", "fertrate")
S += defarray("noteduc", "school1", "school2", "stocktrades", "nettrade")
S += defarray("food1", "food2", "elec", "cooking", "popgrow")
S += defarray("popdens", "displaced")

cnameset(X, S)

nulldata NT --preserve
setobs 5 1:1 --stacked-time-series

series ccode = $unit
stringify(ccode, cnames)
series year = time+2011
delete index time

loop i=1..v
   sname = S[i]
   genseries(S[i], X[,i])
endloop

store louis_panel.gdt