This function aims to numerically match the NMRPipe `PS` function.
Value
A modified spectrum `list` with phase-corrected `int` values and updated phase metadata in `header` and `fheader`.
Examples
fid_path <- system.file("extdata", "noesy1d", "11", "test.fid", package = "fitnmr")
fid <- read_nmrpipe(fid_path, complex_data = TRUE)
sp <- nmrpipe_sp(fid)
zf <- nmrpipe_zf(sp)
ft <- nmrpipe_ft(zf)
ps <- nmrpipe_ps(ft, p0 = 129, p1 = 3)