Update analyse.R