for f in *.R; do   mv "$f" "${f/1-/}"; done