data(synth)
data(hearingdate_synth)
synth$CourtEvent_HearingDate <- hearingdate_synth
TestMonotonicityRE(synth,
fixed = "Y ~ Sex + White + Age +
CurrentViolentOffense + PendingChargeAtTimeOfOffense +
PriorMisdemeanorConviction + PriorFelonyConviction +
PriorViolentConviction + D",
random = "~ 1|CourtEvent_HearingDate"
)
Run the code above in your browser using DataLab