This function gets all values that reside within the given upper and lower bounds of an x variable and sums them to give a reasonably accurate estimation of the total area of the spectrum

tota(x, p, n, sh = c(0.25, 9.5))

Arguments

x

The spectrum of which you want to calculate the total area

p

The matched ppm variable to x

n

The noise estimation from the pproc

sh

The chemical shift of the region you want to calculate total area of

Value

A value of the total area estimation

Details

tota() finds the ppm values between the upper and lower bounds provided by the sh parameter. Then it removes all values below the estimated noise level provided by pproc() to increase accuracy. Finally the remaining values are summed and is the value returned by the function.

See also

Other estimation: alter8r(), citra(), crea(), get_idx(), noi_(), roundr(), shift_pickr()

Author

Kyle Bario kylebario1@gmail.com

Examples

data(x,p,n) ta <- tota(x, p, n)