it.legendreSynth: it.legendreSynth

Description Usage Arguments Value See Also Examples

View source: R/it.R

Description

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

Usage

1
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

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

rPraat documentation built on Feb. 28, 2021, 1:06 a.m.