R/drilling_well.R

# success probability when drilling wells

drilling_well<-function(n,Ps){
  proba =1
  for ( i in 1:n){
    proba = proba*(1-Ps)
  }
  return(1-proba)
}
tleblevecIMP/ICgeostats documentation built on May 31, 2019, 3:49 p.m.