My code is the following :
t<-as.data.frame(swf2@coords) t V1 V2 1 0.7419071 47.91876 2 0.7492245 47.83500 3 0.7417791 47.91809 4 0.7328195