Update data.R

I have put lon and lat in eof2field in is !