Change code extract suffices from .txt to .R