# NOT RUN {
library(survey)
data(api)
dstrat<-svydesign(id=~1,strata=~stype, weights=~pw, data=apistrat, fpc=~fpc)
gghistweight3d_svy(dstrat, api00, stype, awards)
gghistweight3d_svy(dstrat, api00, stype, awards, binwidth = 10)
# }
Run the code above in your browser using DataLab