infile pubid entry exit event p1 p2 p3 p4 per1234 using C:\mikefolder\mikeFolder\survivalmethods\programsforweb\Figures_revisedpaper\fulldata.dat
stset exit, failure(event) enter(entry)
streg p2 p3 p4, d(gamma) anc(p2 p3 p4) anc2(p2 p3 p4)