R/proportio.R

In ELICHOS/dataviz:

joursMRIE<-function(cout=2000, tx.ho=550){
  cout/tx.ho->res
  return(res)
}
coutMRIE<-function(jours=2, tx.ho=550){
  jours*tx.ho->res
  return(res)
}
proportio.b2<-function(a1=1,  b1=2, a2=2 ){
    a2*b1/a1->res
  return(res)
}