Opdateret R script til figurer i lifebook