eiSearch.R working with test dataset