FPO.ophiolite <- subset(endmembers,select="ophiolite",
components=c('F','px','opaques'))
distribution <- minsorting(FPO.ophiolite,densities,phi=2,
sigmaphi=1,medium="seawater",by=0.05)
plot(distribution,cumulative=FALSE)Run the code above in your browser using DataLab