# S4 method for class 'AccrualMethods'
SimulateAdditionalArrivalTimes(cAP, nQtyPats, vCurrentStartTimes)NewAccrualProcess for creating the object.
vPatsPerMonth <- c(5, 10, 15, 20, 30, 40, 50) # The ramp up in expected Pat/month
nMaxQtyPats <- 100 # Maximum of 100 patients
ap <- NewAccrualProcess( vQtyPatsPerMonth = vPatsPerMonth, nMaxQtyPatients = nMaxQtyPats )
vAccTimes <- SimulateArrivalTimes( ap )