data(county)
res <- extract_spatial_information(county, id = "ID")
av_surf <- mean(res$surface)
calib_param(av_surf = av_surf, law = "NGravExp")
calib_param(av_surf = av_surf, law = "NGravPow")
calib_param(av_surf = av_surf, law = "Schneider")
calib_param(av_surf = av_surf, law = "RadExt")
Run the code above in your browser using DataLab