close_quant.powdRfps: Close the phase concentration data within a 'powdRfps' object
In powdR: Full Pattern Summation of X-Ray Powder Diffraction Data

Description Usage Arguments Value Examples

close_quant closes the quantitative data within a powdRfps object (derived from fps()) by ensuring that the composition sums to 100 percent.

1 2	## S3 method for class 'powdRfps' close_quant(x, ...)

`x`	A `powdRfps` object derived from `fps()`.
`...`	other arguments

a powdRfps object with components:

`tth`	a vector of the 2theta scale of the fitted data
`fitted`	a vector of the fitted XRPD pattern
`measured`	a vector of the original XRPD measurement (aligned and harmonised)
`residuals`	a vector of the residuals (fitted vs measured)
`phases`	a dataframe of the phases used to produce the fitted pattern and their concentrations
`phases_grouped`	the phases dataframe grouped by phase_name and concentrations summed
`obj`	named vector of the objective parameters summarising the quality of the fit
`weighted_pure_patterns`	a dataframe of reference patterns used to produce the fitted pattern. All patterns have been weighted according to the coefficients used in the fit
`coefficients`	a named vector of coefficients used to produce the fitted pattern
`inputs`	a list of input arguments used in the function call

## Not run: 
data(rockjock)
data(rockjock_mixtures)

rockjock_1 <- fps(lib = rockjock,
                  smpl = rockjock_mixtures$Mix1,
                  refs = c("ORDERED_MICROCLINE",
                           "LABRADORITE",
                           "KAOLINITE_DRY_BRANCH",
                           "MONTMORILLONITE_WYO",
                           "ILLITE_1M_RM30",
                           "CORUNDUM"),
                 std = "CORUNDUM",
                 align = 0.3,
                 std_conc = 20)

sum(rockjock_1$phases$phase_percent)

rockjock_1c<- close_quant(rockjock_1)

sum(rockjock_1c$phases$phase_percent)


## End(Not run)