# create a second GADS with different data
pisa2 <- pisa
pisa2$dat$age[400:nrow(pisa$dat)] <- sample(pisa2$dat$age[400:nrow(pisa$dat)])
# inspect via equalGADS()
equalGADS(pisa, pisa2)
# inspect via inspectDifferences()
inspectDifferences("age", GADSdat1 = pisa, GADSdat2 = pisa2, id = "idstud")
Run the code above in your browser using DataLab