# NOT RUN {
x <- '{
"type": "Feature",
"properties": {},
"geometry": {
"type": "Polygon",
"coordinates": [[
[-112.072391,46.586591],
[-112.072391,46.61761],
[-112.028102,46.61761],
[-112.028102,46.586591],
[-112.072391,46.586591]
]]
}
}'
lawn_center_of_mass(x)
lawn_center_of_mass(lawn_data$polygons_average)
# }
Run the code above in your browser using DataLab