added search.R marking my intention to work on file searching