it.legendreSynth {rPraat}

it.legendreSynth

Description

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

Usage

it.legendreSynth(c, npoints = 1000)

Arguments

c

Vector of Legendre polynomials coefficients

npoints

Number of points of IntensityTier interpolation

Value

Vector of values of synthetized contour

See Also

it.legendre, it.legendreDemo, it.read, it.plot, it.interpolate

Examples

it <- it.sample()
it <- it.cut(it, tStart = 0.2, tEnd = 0.4)  # cut IntensityTier and preserve time
c <- it.legendre(it)
print(c)
leg <- it.legendreSynth(c)
itLeg <- it
itLeg$t <- seq(itLeg$tmin, itLeg$tmax, length.out = length(leg))
itLeg$i <- leg
## Not run: 
plot(it$t, it$i, xlab = "Time (sec)", ylab = "Intensity (dB)")
lines(itLeg$t, itLeg$i, col = "blue")

## End(Not run)