Change the structure of the data_tutkimus.r, now age as a parameter and a function for plotting