# NOT RUN {
data(rockjock)
data(rockjock_mixtures)
#Compute the PCA and loadings
x1 <- xrpd_pca(rockjock_mixtures,
mean_center = TRUE,
bin_size = 1,
root_transform = 1)
# }
# NOT RUN {
fps_lm_out <- fps_lm(rockjock,
smpl = data.frame("x" = x1$loadings$tth,
"y" = x1$loadings$Dim.1),
refs = rockjock$phases$phase_id,
std = "QUARTZ",
align = 0.3,
p = 0.01)
plot(fps_lm_out,
wavelength = "Cu",
interactive = TRUE,
group = TRUE)
# }
Run the code above in your browser using DataLab