as_survey_design function

Create a tbl_svy survey object using sampling design