if (FALSE) {
# to load the data
data('BaFe2As2')
# fit a GeDS regression and produce a simple plot of the result. See ?NGeDS
# c.f. Kaishev et al. (2016), section 4.2
(Gmod <- NGeDS(intensity ~ f(angle), data = BaFe2As2, beta = 0.6, phi = 0.99,
q = 3, show.iters = T))
plot(Gmod)
}
Run the code above in your browser using DataLab