pt.legendreSynth: pt.legendreSynth

Description Usage Arguments Value See Also Examples

View source: R/pt.R

Description

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

Usage

1
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

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
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.