R scripts for BiProject