pt.legendreSynth {rPraat}

pt.legendreSynth

Description

Synthetize the contour from vector of Legendre polynomials c in npoints equidistant points

Usage

pt.legendreSynth(c, npoints = 1000)

Arguments

c

Vector of Legendre polynomials coefficients

npoints

Number of points of PitchTier interpolation

Value

Vector of values of synthetized contour

See Also

pt.legendre, pt.legendreDemo, 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)