# NOT RUN {
data(correlatormatrix)
## bootstrap the correlator matrix
correlatormatrix <- bootstrap.cf(correlatormatrix, boot.R=99, boot.l=1, seed=132435)
## solve the GEVP
t0 <- 4
correlatormatrix.gevp <- bootstrap.gevp(cf=correlatormatrix, t0=t0, element.order=c(1,2,3,4))
## extract the ground state and plot
pion.pc1 <- gevp2cf(gevp=correlatormatrix.gevp, id=1)
pion.pc1.effectivemass <- bootstrap.effectivemass(cf=pion.pc1, type="solve")
pion.pc1.effectivemass <- fit.effectivemass(pion.pc1.effectivemass, t1=8, t2=23,
useCov=FALSE)
## now determine the amplitude
pion.pc1.amplitude <- gevp2amplitude(correlatormatrix.gevp, pion.pc1.effectivemass,
useCov=FALSE, t1=8, t2=14)
plot(pion.pc1.amplitude)
summary(pion.pc1.amplitude)
# }
Run the code above in your browser using DataLab