#'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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.