Displaying 1 result from an estimated 1 matches for "int_bkf".
Did you mean:
in_buf
2010 Sep 15
1
approxfun returning value higher than I would expect
...n[1], bkf_min)
#bkf_max <- ifelse(length(bkf_max)>1, bkf_max[1], bkf_max)
#s <- with(measure_bkf_not_zero, approx(measurment_num,
bankfull_depths_m,
xout=seq(measure_bkf_not_zero[bkf_min,"measurment_num"],
measure_bkf_not_zero[bkf_max,"measurment_num"], length=2000)))
#int_bkf <- with(s, x[which.min(y[y>0])])
s <- with(measure_bkf_not_zero[bkf_min:bkf_max,],
approxfun(bankfull_depths_m, measurment_num), ties=mean)
int_bkf <- s(0)
--
Stephen Sefick
____________________________________
| Auburn University? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? |
| Department of...