Final Change

Change read.table to grep