R/Fk.R

Defines functions Fk

Documented in Fk

Fk <-
function(age, k){
  Fk <- vector(length = length(age))
  Fk[1] <- k
  for (i in 2:length(age)){
    Fk[i] <- ((1-k)^age[i])*k + Fk[i-1]  
  }
  return(Fk = Fk)
}

Try the cdlei package in your browser

Any scripts or data that you put into this service are public.

cdlei documentation built on Feb. 9, 2020, 5:08 p.m.