Update Study data.R