Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- else if(t<1826){t<-((1826-t)/(1826-1736))
- q <- function(ytc,p,c,t,f=4,N=100){(N+c)/(1+(ytc/f)^(t))-p}}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement