R/Proportion_2D.R

In tleblevecIMP/TransPGS: Study the indicator transiograms obtained from multi-gaussian integrals

#'Compute the proportions of a 2d dataset coded in a list of matrix
#'


proportion_2D<-function(facies,nfacies){
  prop<-rep(0,nfacies)
  for( i in seq(nfacies)){
    fi<-binarize_facies(facies,i)
    prop[i]=mean(fi,na.rm=TRUE)
  }
  #prop<-prop_correction_NA(prop)
  return ( prop)
}