Create widen.R

 This function is for transform a df from multiple row cases to single row cases, with the multiple measurments numbered.