updated Comppass.R