## ----include = FALSE----------------------------------------------------------
# knitr::opts_chunk$set(
#   collapse = TRUE,
#   comment = "#>"
# )

## ----echo=FALSE---------------------------------------------------------------
library(ILSAstats)

## -----------------------------------------------------------------------------
RW2 <- repcreateILSA(study = "TIMSS", year = 1999, df = timss99)

## -----------------------------------------------------------------------------
ST1 <- repsetup(repwt = RW2,
                wt = "TOTWGT",
                df = timss99,
                method = "oldTIMSS",
                group = "IDCNTRY_STR")

## -----------------------------------------------------------------------------
ST1

## -----------------------------------------------------------------------------
ST2 <- repsetupILSA(study = "TIMSS",
                    year = 1999,
                    repwt = RW2,
                    df = timss99,
                    group = "IDCNTRY_STR")

## -----------------------------------------------------------------------------
identical(ST1,ST2)