Update Marc_test.R