powered by
An hyperbolic function to simulate delay discounting data
eq_hyp(k, delay)
A numeric vector of subjective values between 0 and 1
numeric constant, the delay discounting parameter
vector of delays
delay <- seq(0, 10, len = 100) k <- 0.2 sv <- eq_hyp(k, delay) plot(delay, sv, xlab = "delay", ylab = "Sv", type = "l" )
Run the code above in your browser using DataLab