powered by
data.frame
ratetable
longDF2ratetable(DF, value.var = "haz", by.vars = setdiff(names(DF), value.var))
as.data.table.ratetable
as.data.frame.ratetable