Find area extent Verify if this function is not in my spatial script

Find area extent Verify if this function is not in my spatial script

CreateExtent(x, saveWD)

Arguments

x	SpatialPointsDataFrame
saveWD	directory where to save Extent