pt.legendre {rPraat} | R Documentation |
pt.legendre
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)
[Package rPraat version 1.3.2-1 Index]