error in seq.default

[bonushenricus]

Hello I would try the package to calculate a water budget for a watershed but there is something wrong splash.point(sw_in=200, tc=15, pn=10, lat=44,elev=1800,slop=10,asp=270,soil_data=c(sand=44,clay=2,OM=6,fgravel=12))

Error in seq.default(time_index[1], time_index[length(time_index)], "month") : 'from' should be of lenght=1

run1<-splash.point(
  sw_in=Bourne$forcing$sw_in,   # shortwave radiation W/m2
  tc=Bourne$forcing$Ta,     # air temperature C
  pn= Bourne$forcing$P,     # precipitation mm
  lat=Bourne$md$latitude,       # latitude deg
  elev=Bourne$md$elev_m,        # elevation masl
  slop=Bourne$md$slop_250m, # slope deg
  asp=Bourne$md$asp_250m,       # aspect deg
  soil_data=Bourne$soil,        # soil data: sand,clay,som in w/w %. Gravel v/v %, bulk density g/cm3, and depth to the bedrock (m)**
  Au=Bourne$md$Aups_250m,       # upslope area m2
  resolution=250.0              # resolution pixel dem used to get Au
)

Error in if (class(tc) %in% c("xts", "zoo", "ts")) { : condition has length > 1 Error in exists(cacheKey, where = .rs.CachedDataEnv, inherits = FALSE) : first argument invalid Error in if (maxRows != -1 && nrow(data) > maxRows) data <- head(data, : missing value where TRUE/FALSE is required

[dsval]

Hi, rsplash needs at least one year of data, monthly or daily to do the spin-up, and the dates. The soil data should be a vector of 6 elements. Here is a toy example:

splash toy

test1<-splash.point(sw_in=200sin(seq(0.01,pi,length.out =365)), tc=15sin(seq(0.01,pi,length.out =365)), pn=rgamma(n=365, shape=5, rate=5), lat=44,elev=1800,slop=10,asp=270, soil_data=c(sand=44,clay=2,OM=6,fgravel=12,bd=NA,depth=1), time_index=seq(as.Date('1800-01-01'),as.Date('1800-12-31'),by='day') ) Cheers, David