#############################################################################
# EXAMPLE 1: Imputed TIMSS dataset
#############################################################################
data(data.timss1)
data(data.timssrep)
# create BIFIE.dat object
bdat <- BIFIE.data( data.list=data.timss1 , wgt= data.timss1[[1]]$TOTWGT ,
wgtrep=data.timssrep[, -1 ] )
# Correlations splitted by gender
res1 <- BIFIE.correl( bdat , vars=c("lang" , "books" , "migrant" ) ,
group="female" , group_values=0:1 )
summary(res1)
# Correlations splitted by gender: no statistical inference (se=FALSE)
res1a <- BIFIE.correl( bdat , vars=c("lang" , "books" , "migrant" ) ,
group="female" , group_values=0:1 , se=FALSE)
summary(res1a)
Run the code above in your browser using DataLab