pt.legendreSynth: pt.legendreSynth
In bbTomas/rPraat: Interface to Praat

Description Usage Arguments Value See Also Examples

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

1	pt.legendreSynth(c, npoints = 1000)

`c`	Vector of Legendre polynomials coefficients
`npoints`	Number of points of PitchTier interpolation

Vector of values of synthetized contour

pt.legendre, pt.legendreDemo, pt.read, pt.plot, pt.Hz2ST, pt.interpolate

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)