implementation of Focus Map as R package