DESCRIPTION:
Disease progression in psychosis with impact on drop out

[LONGITUDINAL]
input= {Adas0, r, alpha, lambda, k, beta}

EQUATION:
Adas= Adas0*70/(Adas0^alpha+(70^alpha-Adas0^alpha)*exp(-alpha*r*t))^(1/alpha)
LogAdas=log(Adas)

h0=k/lambda*((t/lambda)^(k-1))
h=h0*exp(-beta*Adas)

DEFINITION:
Event = { type = event, 
              hazard = h,
             eventType=intervalCensored,
             maxEventNumber = 1,
             rightCensoringTime=5}

OUTPUT: output= {Event, LogAdas}