it.legendre: it.legendre

In bbTomas/rPraat: Interface to Praat

Description

Interpolate the IntensityTier in npoints equidistant points and approximate it by Legendre polynomials

Usage

it.legendre(it, npoints = 1000, npolynomials = 4)

Arguments

it	IntensityTier object
npoints	Number of points of IntensityTier interpolation
npolynomials	Number of polynomials to be used for Legendre modelling

Value

Vector of Legendre polynomials coefficients

See Also

it.legendreSynth, it.legendreDemo, it.cut, it.cut0, it.read, it.plot, it.interpolate

Examples

it <- it.sample()
it <- it.cut(it, tStart = 0.2, tEnd = 0.4)  # cut IntensityTier and preserve time
c <- it.legendre(it)
print(c)
leg <- it.legendreSynth(c)
itLeg <- it
itLeg$t <- seq(itLeg$tmin, itLeg$tmax, length.out = length(leg))
itLeg$i <- leg
## Not run: 
plot(it$t, it$i, xlab = "Time (sec)", ylab = "Intensity (dB)")
lines(itLeg$t, itLeg$i, col = "blue")

## End(Not run)

bbTomas/rPraat documentation built on Dec. 26, 2021, 2:08 a.m.