> dist_FSR
       long      lat
1 -83.43758 39.96130
2 -83.43479 39.95710
3 -83.44378 39.96185
4 -83.43296 39.96261

fields_FSR<- dist(dist_FSR, method = "euclidean", diag = FALSE, upper = FALSE, p=2)

> fields_FSR
            1           2           3
2 0.005044166
3 0.006220986 0.010173129
4 0.004808999 0.005806264 0.010848444

> FSR <- sapply(2:nrow(dist_FSR),function(i){distm(dist_FSR[i-1,],dist_FSR[i,])})
[1] 524.6731 932.2052 927.2010