code: Add R script for features selection