diff --git a/R/GRID.R b/R/GRID_MGSR.R
similarity index 78%
rename from R/GRID.R
rename to R/GRID_MGSR.R
index 5449362..c0038b5 100644
--- a/R/GRID.R
+++ b/R/GRID_MGSR.R
@@ -1,4 +1,4 @@
-GRID <- function(DAT,lag=0.25,x1=0,x2=0,y1=0,y2=0)
+GRID_MGSR <- function(DAT,lag=0.25,x1=0,x2=0,y1=0,y2=0)
 {
 	x.range <- (range(DAT[,1])) + c(x1,x2)
 	y.range <- (range(DAT[,2])) + c(y1,y2)