pt.legendre: pt.legendre

In rPraat: Interface to Praat

Description

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

Usage

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

Arguments

pt	PitchTier object
npoints	Number of points of PitchTier interpolation
npolynomials	Number of polynomials to be used for Legendre modelling

Value

Vector of Legendre polynomials coefficients

See Also

pt.legendreSynth, pt.legendreDemo, pt.cut, pt.cut0, pt.read, pt.plot, pt.Hz2ST, pt.interpolate

Examples

pt <- pt.sample()
pt <- pt.Hz2ST(pt)
pt <- pt.cut(pt, tStart = 3)  # cut PitchTier from t = 3 sec and preserve time
c <- pt.legendre(pt)
print(c)
leg <- pt.legendreSynth(c)
ptLeg <- pt
ptLeg$t <- seq(ptLeg$tmin, ptLeg$tmax, length.out = length(leg))
ptLeg$f <- leg
## Not run: 
plot(pt$t, pt$f, xlab = "Time (sec)", ylab = "F0 (ST re 100 Hz)")
lines(ptLeg$t, ptLeg$f, col = "blue")

## End(Not run)

rPraat documentation built on Feb. 28, 2021, 1:06 a.m.