R/getSSF.R

In essatech/MNAI.CPBT: Municipal Natural Assets Initiative - Coastal Protection Benefit Toolbox

#' Custom lookup table for SSF
#' @keywords internal
getSSF <- function() {
	ssf <- c(0.063,0.0672,0.0714,0.0756,0.0798,0.084,0.0872,0.0904,0.0936,0.0968,0.1,0.103,0.106,0.109,0.112,0.115,0.117,0.119,0.121,0.123,0.125,0.127,0.129,0.131,0.133,0.135,0.137,0.139,0.141,0.143,0.145,0.1466,0.1482,0.1498,0.1514,0.153,0.1546,0.1562,0.1578,0.1594,0.161,0.1622,0.1634,0.1646,0.1658,0.167,0.1682,0.1694,0.1706,0.1718,0.173,0.1742,0.1754,0.1766,0.1778,0.179,0.1802,0.1814,0.1826,0.1838,0.185,0.1859,0.1868,0.1877,0.1886,0.1895,0.1904,0.1913,0.1922,0.1931,0.194,0.1948,0.1956,0.1964,0.1972,0.198,0.1988,0.1996,0.2004,0.2012,0.202,0.2028,0.2036,0.2044,0.2052,0.206,0.2068,0.2076,0.2084,0.2092,0.21,0.2108,0.2116,0.2124,0.2132,0.214,0.2148,0.2156,0.2164,0.2172)

	diam <- c(0.1, 0.11, 0.12, 0.13, 0.14, 0.15, 0.16, 0.17, 0.18, 0.19, 0.2, 0.21, 0.22, 0.23, 0.24, 0.25, 0.26, 0.27, 0.28, 0.29, 0.3, 0.31, 0.32, 0.33, 0.34, 0.35, 0.36, 0.37, 0.38, 0.39, 0.4, 0.41, 0.42, 0.43, 0.44, 0.45, 0.46, 0.47, 0.48, 0.49, 0.5, 0.51, 0.52, 0.53, 0.54, 0.55, 0.56, 0.57, 0.58, 0.59, 0.6, 0.61, 0.62, 0.63, 0.64, 0.65, 0.66, 0.67, 0.68, 0.69, 0.7, 0.71, 0.72, 0.73, 0.74, 0.75, 0.76, 0.77, 0.78, 0.79, 0.8, 0.81, 0.82, 0.83, 0.84, 0.85, 0.86, 0.87, 0.88, 0.89, 0.9, 0.91, 0.92, 0.93, 0.94, 0.95, 0.96, 0.97, 0.98, 0.99, 1, 1.01, 1.02, 1.03, 1.04, 1.05, 1.06, 1.07, 1.08, 1.09)

	ssf_lookup <- data.frame(diam = diam, ssf = ssf)

	return(ssf_lookup)

}