modified chromR.r