database="monetdb://localhost/acs2", driver=MonetDB.R(),

    key="idkey",user="monetdb",password="monetdb",table.name=s, check.factors=data.frame())

  for (r in 1:5) {

    timing <- system.time({

      print(svymean(~agep, svydsgn, se=TRUE))

    })[[3]]

    log.result("survey", "sqlsurvey", conf, s, r, timing)

  }

}

# TODO: test with Oct14 branch, probably faster