data (GLHS)
occup <- Occup (GLHS)
tit1 <- "State occupancies by age. GLHS"
tit2<- "Data from cohorts 1929-31, 1939-41 and 1949-51"
namstates2 <- c(namstates,"censored")
z <- StackGraph (x=occup$state_occup[,1:(numstates+1)],
xlabel="Age",
ylabel="State Occupancies",
xlegen=0,
ylegend=nsample,
title_main=tit1,
title_sub=tit2,
namst=namstates2)
Run the code above in your browser using DataLab