Closed jeffreyhanson closed 6 years ago
rep_area = 5 # units in km^2 pt <- st_sfc(st_point(rbind(c(0,0))), crs = 3395) pl <- st_buffer(pt, sqrt((rep_area * 1000000) / pi)) area <- units::set_units(sf::st_area(pl), km^2) print(area) # should be close to 5
This works.