shift_pickr: Peak-Picking
In kylebario/unorm: Urine Normalisation

Description Usage Arguments Value See Also Examples

View source: R/shift_pickr.R

Peak-Picking

1	shift_pickr(X, ppm = NULL, sh = c(3, 3.1), pm = 0.005)

`X`	The X array or matrix you want to pick the peak of
`ppm`	The column matched ppm variable to your X
`sh`	The chemical shift region you want to search
`pm`	The amount you want to add to each side of the peak

The ppm variables that match the peak you are searching for

Other estimation: noise()

data(X)
idx <- shift_pickr(X[1,], ppm, sh = c(4,4.1), pm = 0.005)
idx1 <- shift_pickr(X[2,], ppm, sh = c(4,4.1), pm = 0.01)
plot(ppm[idx], X[1,idx], main = "Creatinine Peak 4.05", type = 'l', xlim = c(4.05, 4.07))
points(ppm[idx1], X[2,idx1], type = 'l', col = 'red')