library(gdata) library (maptools) mes_données <- read.xls('testxy.xls',sheet=1) coordinates(mes_données) <- ~ x+y writeSpatialShape(mes_données, "données")
