dfOP=permutedims(df,"month")
rm=1:parse(Int,names(dfOP)[2][end-1:end])-1
y=names(dfOP)[2][1:4]
insertcols!(dfOP,2,((y.*lpad.(rm,2,'0')).=>0)...)
dfOP=permutedims(df,"month")
rm=1:parse(Int,names(dfOP)[2][end-1:end])-1
y=names(dfOP)[2][1:4]
insertcols!(dfOP,2,((y.*lpad.(rm,2,'0')).=>0)...)