$PROBLEM TRANSGENERATE DATA $INPUT ID BSLN IND TIME DV MDV $DATA NMDATA100.CSV IGNORE=# $PRED IF (NEWIND.LE.1) FLAG=0 IF (IPROB.EQ.1) THEN M=MDV IF (DV.EQ.BSLN.AND.FLAG.EQ.0) M=1 IF (MDV.EQ.0.AND.DV.NE.BSLN) FLAG=1 ENDIF IF (IPROB.EQ.2) THEN IF (MDV.EQ.0.AND.FLAG.EQ.0) THEN YLO=BSLN+.05 YUP=BSLN-.05 FLAG=1 ENDIF ENDIF AS=THETA(1)*EXP(ETA(1)) K=THETA(2) IF (MIXNUM.EQ.1) THEN Y=BSLN*EXP(AS*(1-EXP(-K*TIME)))+EPS(1) ELSE Y=BSLN+EPS(2) ENDIF $MIX NSPOP=2 A=EXP(THETA(3)) DEN=1+A P(1)=A/DEN P(2)=1/DEN $THETA (0,0.2) ;1 ASYMPTOTE (0,0.1) ;2 RATE (1) ;3 PROP $OMEGA .2 ;1 ASYMPTOTE $SIGMA .1 ;1 WSV1 .1 ;1 WSV2 $ESTIM METHOD=1 LAPLACE MAXEVAL=0 PRINT=1 $TABLE ID BSLN IND TIME DV M FILE=d NOHEADER NOPRINT NOAPPEND $PROBLEM ESTIMATE DATA $DATA d NOOPEN (6E12.0) $INPUT ID BSLN IND TIME DV MDV $THETA (0,0.2) ;1 ASYMPTOTE (0,0.1) ;2 RATE (1) ;3 PROP $OMEGA .2 ;1 ASYMPTOTE $SIGMA .1 ;1 WSV1 .1 ;1 WSV2 $EST METH=1 LAPLACE MAXEVALS=9999 PRINT=1 NOABORT $COV PRINT=E