if (FALSE) {
codes <- qcv(dc, sf, wes, pol, rejk, lk, azx, mmm)
X <- cm_df.temp(DATA, "state", codes)
head(X, 10)
#recommended structure
cds1 <- list(
dc=c(1:3, 5),
sf=c(4, 6:9, 11),
wes=0,
pol=0,
rejk=0,
lk=0,
azx=1:30,
mmm=5
)
out1 <- cm_df.fill(X, cds1)
head(out1)
#recommended structure
cds2 <- list(
sf=c(4, 6:9, 11),
dc=c(1:3, 5),
azx=1:30,
mmm=5
)
out2 <- cm_df.fill(X, cds2)
head(out2)
}
Run the code above in your browser using DataLab