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

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

## -----------------------------------------------------------------------------
colnames(repdata)

## -----------------------------------------------------------------------------
RW1 <- repcreate(df = timss99,
                jkzone = "JKZONE",
                jkrep = "JKREP",
                wt = "TOTWGT",
                method = "oldTIMSS")


## -----------------------------------------------------------------------------
class(RW1)
ncol(RW1)
head(colnames(RW1))

## -----------------------------------------------------------------------------
ILSAinfo$weights

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


## -----------------------------------------------------------------------------
identical(RW1,RW2)