# Default parameters
df_soil <- defaultSoilParams()
# Initializes soil
s = soil(df_soil)
s
# Prints soil characteristics according to Saxton's water retention curve
summary(s, model="SX")
# Prints soil characteristics according to Van Genuchten's water retention curve
summary(s, model="VG")
# Add columns 'VG_theta_sat' and 'VG_theta_res' with custom values
df_soil$VG_theta_sat <- 0.400
df_soil$VG_theta_res <- 0.040
# Reinitialize soil (should override estimations)
s2 = soil(df_soil)
s2
summary(s2, model="VG")
Run the code above in your browser using DataLab