library(dmm)
data(dt8bal.df)
pedcheck(dt8bal.df)
# this one returns
#[1] 0
# which is a pass
if (FALSE) {
data(sheep.df)
pedcheck(sheep.df)
# this one returns
#Id's must start at 1:
#Id's must be an arithmetic sequence:
#Id's must be unique:
#DId's must occur as an Id in the dataframe:
#All DId's must be female:
#[1] 5
# which is a fail
}
rm(dt8bal.df)
Run the code above in your browser using DataLab