Sea 𝑓 la función de densidad de una variable aleatoria geométrica con 𝑝=0.8 . Dar el valor de 𝑓(4)

p=0.8
f=function(x){
  ifelse(x<1,1-p,0)
  ifelse(x>1,(1-p)^(x-1)*p,1)
  }