R-计算svydesign对象

我想构建一个循环，从一个合适的对象中获取适当的子样本（为什么？很长的解释，很无聊）。为了获取这些子样本，我使用了

？subset.survey.design

但我不想手动输入，我想在循环中进行（下面给出了一个不完整的版本，其中索引l固定为1，用于演示）。我正在努力解决最后一点（如何用字符串中的命令创建子集）

有人能帮忙吗

谢谢

您需要阅读：）

    library(survey)
    data(api)
    dstrat<-svydesign(id=~1,strata=~stype, weights=~pw, data=apistrat, fpc=~fpc)
    fit<-(svyglm(api00 ~ ell, design = dstrat))
    group="sch.wide"
#######THE ABOVE IS ALL THE INFORMATION THE AUTOMATED SYNTAX BELOW WILL USE   

    cap<-capture.output(fit$survey.design)
    cap<-paste0(cap[2:length(cap)],collapse="")

    l=1
    levs<-unique(dstrat$variables[group])[[1]]
    ll<-as.character(levs[l])
    (paste0("subset(",cap,",",group,"=='",ll,"')",collapse=""))

svyglm(api00 ~ ell, design =SubD)