tests/test_p_t.R

library("mcPAFit")

T <- 10000
t <- 1:T

p_t <- function(p_max,p_min,t) {p_max + (t-1)/T * (p_min - p_max)}
# 
plot(t, p_t(0.5,0.01,t))
thongphamthe/mcPAFit documentation built on May 20, 2019, 10:23 p.m.