# Example usage:
x <- c(0, 4, 9, 13)
z <- c(2, 0, 0, 2)
cs <- CSarbitrary(x = x, z = z, xb_l = 4, xb_r = 9, kSt_B = 35,
kSt_l = 45, kSt_r = 45)
h_levels <- c(1, 2) # water levels
mean_roughness(cs, h_levels)
Run the code above in your browser using DataLab