added COMPASS.R