mse = TRUE ,

      data = svydata) 

  print("initialized")

  for (r in 1:5) {

    timing <- system.time({

      agep <- svymean(~agep, svydsgn, se=TRUE)

      print(agep)

      print(relp)

    })[[3]]

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

    clearResultRecycler()