Create EnrollmentIntensity.r