hft.chisq.M
function
3
data
missing
0
M
call
3

name
1
logb

call
2

name
1
length

name
1
data

numeric
1
2

{
7

<-
2

name
1
TT

call
2

name
1
length

name
1
data

<-
2

name
1
n

call
3

name
1
^

numeric
1
2

name
1
M

<-
2

name
1
res

call
3

name
1
rep

numeric
1
0

name
1
n

<-
2

name
1
seglength

call
3

name
1
/

name
1
TT

name
1
n

for
3
i
NULL
0

call
3

name
1
:

numeric
1
1

name
1
n

<-
2

call
3

name
1
[

name
1
res

name
1
i

call
2

name
1
mean

call
3

name
1
[

name
1
data

call
3

name
1
:

(
2

name
1
(

call
3

name
1
+

call
3

name
1
*

(
2

name
1
(

call
3

name
1
-

name
1
i

numeric
1
1

name
1
seglength

numeric
1
1

(
2

name
1
(

call
3

name
1
*

name
1
i

name
1
seglength

<-
2

name
1
res

call
2

name
1
hft.chisq

name
1
res

return
1

name
1
res
hft.chisq
function
2
data
missing
0

{
12

<-
2

name
1
a

numeric
1
2

<-
2

name
1
n

call
2

name
1
length

name
1
data

<-
2

name
1
nhalf

call
3

name
1
/

name
1
n

numeric
1
2

<-
2

name
1
J

call
3

name
1
logb

name
1
n

numeric
1
2

<-
2

name
1
res

name
1
data

<-
2

name
1
sm

call
3

name
1
rep

numeric
1
0

name
1
nhalf

<-
2

name
1
det

name
1
sm

for
3
i
NULL
0

call
3

name
1
:

numeric
1
1

name
1
J

{
9

<-
2

call
3

name
1
[

name
1
sm

call
3

name
1
:

numeric
1
1

name
1
nhalf

call
3

name
1
/

(
2

name
1
(

call
3

name
1
+

call
3

name
1
[

name
1
res

call
3

name
1
-

call
3

name
1
*

numeric
1
2

(
2

name
1
(

call
3

name
1
:

numeric
1
1

name
1
nhalf

numeric
1
1

call
3

name
1
[

name
1
res

call
3

name
1
*

numeric
1
2

(
2

name
1
(

call
3

name
1
:

numeric
1
1

name
1
nhalf

name
1
a

<-
2

call
3

name
1
[

name
1
det

call
3

name
1
:

numeric
1
1

name
1
nhalf

call
3

name
1
/

(
2

name
1
(

call
3

name
1
-

call
3

name
1
[

name
1
res

call
3

name
1
-

call
3

name
1
*

numeric
1
2

(
2

name
1
(

call
3

name
1
:

numeric
1
1

name
1
nhalf

numeric
1
1

call
3

name
1
[

name
1
res

call
3

name
1
*

numeric
1
2

(
2

name
1
(

call
3

name
1
:

numeric
1
1

name
1
nhalf

name
1
a

<-
2

call
3

name
1
[

name
1
det

call
3

name
1
>

name
1
sm

numeric
1
0

call
3

name
1
/

call
3

name
1
[

name
1
det

call
3

name
1
>

name
1
sm

numeric
1
0

(
2

name
1
(

call
3

name
1
[

name
1
sm

call
3

name
1
>

name
1
sm

numeric
1
0

<-
2

call
3

name
1
[

name
1
res

call
3

name
1
:

numeric
1
1

name
1
nhalf

call
3

name
1
[

name
1
sm

call
3

name
1
:

numeric
1
1

name
1
nhalf

<-
2

call
3

name
1
[

name
1
res

call
3

name
1
:

(
2

name
1
(

call
3

name
1
+

name
1
nhalf

numeric
1
1

name
1
n

call
3

name
1
[

name
1
det

call
3

name
1
:

numeric
1
1

name
1
nhalf

<-
2

name
1
n

call
3

name
1
/

name
1
n

numeric
1
2

<-
2

name
1
nhalf

call
3

name
1
/

name
1
nhalf

numeric
1
2

<-
2

name
1
sm

numeric
1
0

<-
2

name
1
det

numeric
1
0

<-
2

name
1
nhalf

numeric
1
1

<-
2

name
1
n

numeric
1
2

for
3
i
NULL
0

call
3

name
1
:

numeric
1
1

name
1
J

{
6

<-
2

call
3

name
1
[

name
1
sm

call
3

name
1
:

numeric
1
1

name
1
nhalf

call
3

name
1
[

name
1
res

call
3

name
1
:

numeric
1
1

name
1
nhalf

<-
2

call
3

name
1
[

name
1
det

call
3

name
1
:

numeric
1
1

name
1
nhalf

call
3

name
1
[

name
1
res

call
3

name
1
:

(
2

name
1
(

call
3

name
1
+

name
1
nhalf

numeric
1
1

name
1
n

<-
2

call
3

name
1
[

name
1
res

call
3

name
1
-

call
3

name
1
*

numeric
1
2

(
2

name
1
(

call
3

name
1
:

numeric
1
1

name
1
nhalf

numeric
1
1

call
3

name
1
*

call
3

name
1
/

name
1
a

numeric
1
2

(
2

name
1
(

call
3

name
1
+

call
3

name
1
[

name
1
sm

call
3

name
1
:

numeric
1
1

name
1
nhalf

call
3

name
1
[

name
1
det

call
3

name
1
:

numeric
1
1

name
1
nhalf

<-
2

call
3

name
1
[

name
1
res

call
3

name
1
*

numeric
1
2

(
2

name
1
(

call
3

name
1
:

numeric
1
1

name
1
nhalf

call
3

name
1
*

call
3

name
1
/

name
1
a

numeric
1
2

(
2

name
1
(

call
3

name
1
-

call
3

name
1
[

name
1
sm

call
3

name
1
:

numeric
1
1

name
1
nhalf

call
3

name
1
[

name
1
det

call
3

name
1
:

numeric
1
1

name
1
nhalf

<-
2

name
1
n

call
3

name
1
*

numeric
1
2

name
1
n

<-
2

name
1
nhalf

call
3

name
1
*

numeric
1
2

name
1
nhalf

return
1

name
1
res
hft.chisq.inv
function
2
data
missing
0

{
12

<-
2

name
1
a

numeric
1
2

<-
2

name
1
n

call
2

name
1
length

name
1
data

<-
2

name
1
nhalf

call
3

name
1
/

name
1
n

numeric
1
2

<-
2

name
1
J

call
3

name
1
logb

name
1
n

numeric
1
2

<-
2

name
1
res

name
1
data

<-
2

name
1
sm

call
3

name
1
rep

numeric
1
0

name
1
nhalf

<-
2

name
1
det

name
1
sm

for
3
i
NULL
0

call
3

name
1
:

numeric
1
1

name
1
J

{
6

<-
2

call
3

name
1
[

name
1
sm

call
3

name
1
:

numeric
1
1

name
1
nhalf

call
3

name
1
/

(
2

name
1
(

call
3

name
1
+

call
3

name
1
[

name
1
res

call
3

name
1
-

call
3

name
1
*

numeric
1
2

(
2

name
1
(

call
3

name
1
:

numeric
1
1

name
1
nhalf

numeric
1
1

call
3

name
1
[

name
1
res

call
3

name
1
*

numeric
1
2

(
2

name
1
(

call
3

name
1
:

numeric
1
1

name
1
nhalf

name
1
a

<-
2

call
3

name
1
[

name
1
det

call
3

name
1
:

numeric
1
1

name
1
nhalf

call
3

name
1
/

(
2

name
1
(

call
3

name
1
-

call
3

name
1
[

name
1
res

call
3

name
1
-

call
3

name
1
*

numeric
1
2

(
2

name
1
(

call
3

name
1
:

numeric
1
1

name
1
nhalf

numeric
1
1

call
3

name
1
[

name
1
res

call
3

name
1
*

numeric
1
2

(
2

name
1
(

call
3

name
1
:

numeric
1
1

name
1
nhalf

name
1
a

<-
2

call
3

name
1
[

name
1
res

call
3

name
1
:

numeric
1
1

name
1
nhalf

call
3

name
1
[

name
1
sm

call
3

name
1
:

numeric
1
1

name
1
nhalf

<-
2

call
3

name
1
[

name
1
res

call
3

name
1
:

(
2

name
1
(

call
3

name
1
+

name
1
nhalf

numeric
1
1

name
1
n

call
3

name
1
[

name
1
det

call
3

name
1
:

numeric
1
1

name
1
nhalf

<-
2

name
1
n

call
3

name
1
/

name
1
n

numeric
1
2

<-
2

name
1
nhalf

call
3

name
1
/

name
1
nhalf

numeric
1
2

<-
2

name
1
nhalf

numeric
1
1

<-
2

name
1
n

numeric
1
2

for
3
i
NULL
0

call
3

name
1
:

numeric
1
1

name
1
J

{
7

<-
2

call
3

name
1
[

name
1
sm

call
3

name
1
:

numeric
1
1

name
1
nhalf

call
3

name
1
[

name
1
res

call
3

name
1
:

numeric
1
1

name
1
nhalf

<-
2

call
3

name
1
[

name
1
det

call
3

name
1
:

numeric
1
1

name
1
nhalf

call
3

name
1
[

name
1
res

call
3

name
1
:

(
2

name
1
(

call
3

name
1
+

name
1
nhalf

numeric
1
1

name
1
n

<-
2

call
3

name
1
[

name
1
res

call
3

name
1
-

call
3

name
1
*

numeric
1
2

(
2

name
1
(

call
3

name
1
:

numeric
1
1

name
1
nhalf

numeric
1
1

call
3

name
1
*

call
3

name
1
/

name
1
a

numeric
1
2

(
2

name
1
(

call
3

name
1
+

call
3

name
1
[

name
1
sm

call
3

name
1
:

numeric
1
1

name
1
nhalf

call
3

name
1
*

call
3

name
1
[

name
1
det

call
3

name
1
:

numeric
1
1

name
1
nhalf

(
2

name
1
(

call
3

name
1
[

name
1
sm

call
3

name
1
:

numeric
1
1

name
1
nhalf

<-
2

call
3

name
1
[

name
1
res

call
3

name
1
*

numeric
1
2

(
2

name
1
(

call
3

name
1
:

numeric
1
1

name
1
nhalf

call
3

name
1
*

call
3

name
1
/

name
1
a

numeric
1
2

(
2

name
1
(

call
3

name
1
-

call
3

name
1
[

name
1
sm

call
3

name
1
:

numeric
1
1

name
1
nhalf

call
3

name
1
*

call
3

name
1
[

name
1
det

call
3

name
1
:

numeric
1
1

name
1
nhalf

(
2

name
1
(

call
3

name
1
[

name
1
sm

call
3

name
1
:

numeric
1
1

name
1
nhalf

<-
2

call
3

name
1
[

call
3

name
1
[

name
1
res

call
3

name
1
:

numeric
1
1

name
1
n

call
3

name
1
<

call
3

name
1
[

name
1
res

call
3

name
1
:

numeric
1
1

name
1
n

numeric
1
0

numeric
1
0

<-
2

name
1
n

call
3

name
1
*

numeric
1
2

name
1
n

<-
2

name
1
nhalf

call
3

name
1
*

numeric
1
2

name
1
nhalf

return
1

name
1
res
ret.scale
function
3
sp
missing
0
scale
missing
0

{
2

<-
2

name
1
scale

call
2

name
1
abs

name
1
scale

return
1

call
3

name
1
[

call
3

name
1
$

name
1
sp

character
1
S

call
3

name
1
:

(
2

name
1
(

call
3

name
1
+

call
3

name
1
*

(
2

name
1
(

call
3

name
1
-

name
1
scale

numeric
1
1

call
3

name
1
$

name
1
sp

character
1
TT

numeric
1
1

(
2

name
1
(

call
3

name
1
*

name
1
scale

call
3

name
1
$

name
1
sp

character
1
TT
f.u
function
7
x
missing
0
filter.number
numeric
1
4
family
character
1
DaubLeAsymm
levels.denoised
numeric
1
3
type
character
1
hard
by.level
name
1
T

{
4

<-
2

name
1
x.w

call
5

name
1
wd

name
1
x

name
1
filter.number

name
1
family
bc
character
1
symmetric

<-
2

name
1
x.w.t

call
6

name
1
threshold

name
1
x.w
levels
call
3

name
1
:

(
2

name
1
(

call
3

name
1
-

call
3

name
1
$

name
1
x.w

character
1
nlevels

name
1
levels.denoised

(
2

name
1
(

call
3

name
1
-

call
3

name
1
$

name
1
x.w

character
1
nlevels

numeric
1
1
type
name
1
type
policy
character
1
universal
by.level
name
1
by.level

<-
2

name
1
x.w.t.r

call
2

name
1
wr

name
1
x.w.t

return
1

name
1
x.w.t.r
shift.sequence
function
3
vect
missing
0
m
missing
0

{
2

<-
2

name
1
len

call
2

name
1
length

name
1
vect

if
3

call
3

name
1
>=

name
1
m

numeric
1
1

return
1

call
3

name
1
c

call
3

name
1
[

name
1
vect

call
3

name
1
:

(
2

name
1
(

call
3

name
1
+

name
1
m

numeric
1
1

name
1
len

call
3

name
1
[

name
1
vect

call
3

name
1
:

numeric
1
1

name
1
m

if
3

call
3

name
1
<=

name
1
m

numeric
1
-1

return
1

call
3

name
1
c

call
3

name
1
[

name
1
vect

call
3

name
1
:

(
2

name
1
(

call
3

name
1
+

call
3

name
1
+

name
1
len

name
1
m

numeric
1
1

name
1
len

call
3

name
1
[

name
1
vect

call
3

name
1
:

numeric
1
1

(
2

name
1
(

call
3

name
1
+

name
1
len

name
1
m

return
1

name
1
vect
extrapolate
function
3
x
missing
0
n
missing
0

{
9

<-
2

name
1
m

call
2

name
1
length

name
1
x

<-
2

name
1
res

call
3

name
1
rep

numeric
1
0

name
1
n

<-
2

name
1
seg.length

call
2

name
1
round

call
3

name
1
/

name
1
n

name
1
m

<-
2

name
1
offset

call
3

name
1
-

call
3

name
1
/

name
1
seg.length

numeric
1
2

numeric
1
1

for
3
i
NULL
0

call
3

name
1
:

numeric
1
1

(
2

name
1
(

call
3

name
1
-

name
1
m

numeric
1
1

{
2

<-
2

name
1
tmp

call
4

name
1
seq
from
call
3

name
1
[

name
1
x

name
1
i
to
call
3

name
1
[

name
1
x

call
3

name
1
+

name
1
i

numeric
1
1
length
call
3

name
1
+

name
1
seg.length

numeric
1
1

<-
2

call
3

name
1
[

name
1
res

call
3

name
1
+

name
1
offset

(
2

name
1
(

call
3

name
1
:

(
2

name
1
(

call
3

name
1
+

call
3

name
1
*

(
2

name
1
(

call
3

name
1
-

name
1
i

numeric
1
1

name
1
seg.length

numeric
1
1

(
2

name
1
(

call
3

name
1
*

name
1
i

name
1
seg.length

call
3

name
1
[

name
1
tmp

call
3

name
1
:

numeric
1
1

name
1
seg.length

<-
2

call
3

name
1
[

name
1
res

call
3

name
1
+

call
3

name
1
+

call
3

name
1
*

(
2

name
1
(

call
3

name
1
-

name
1
m

numeric
1
1

name
1
seg.length

numeric
1
1

name
1
offset

call
3

name
1
[

name
1
x

name
1
m

if
2

name
1
offset

{
1

<-
2

call
3

name
1
[

name
1
res

call
3

name
1
:

numeric
1
1

name
1
offset

call
4

name
1
seq
by
call
3

name
1
-

call
3

name
1
[

name
1
res

call
3

name
1
+

name
1
offset

numeric
1
2

call
3

name
1
[

name
1
res

call
3

name
1
+

name
1
offset

numeric
1
1
to
call
3

name
1
-

call
3

name
1
*

numeric
1
2

call
3

name
1
[

name
1
res

call
3

name
1
+

name
1
offset

numeric
1
1

call
3

name
1
[

name
1
res

call
3

name
1
+

name
1
offset

numeric
1
2
length
name
1
offset

<-
2

call
3

name
1
[

name
1
res

call
3

name
1
:

(
2

name
1
(

call
3

name
1
-

name
1
n

name
1
offset

name
1
n

call
4

name
1
seq
by
call
3

name
1
-

call
3

name
1
[

name
1
res

call
3

name
1
-

call
3

name
1
-

name
1
n

name
1
offset

numeric
1
1

call
3

name
1
[

name
1
res

call
3

name
1
-

call
3

name
1
-

name
1
n

name
1
offset

numeric
1
2
from
call
3

name
1
-

call
3

name
1
*

numeric
1
2

call
3

name
1
[

name
1
res

call
3

name
1
-

call
3

name
1
-

name
1
n

name
1
offset

numeric
1
1

call
3

name
1
[

name
1
res

call
3

name
1
-

call
3

name
1
-

name
1
n

name
1
offset

numeric
1
2
length
call
3

name
1
+

name
1
offset

numeric
1
1

return
1

name
1
res
denoise.chisq
function
5
x
missing
0
denoise.gauss
name
1
f.u
M
call
3

name
1
logb

call
2

name
1
length

name
1
x

numeric
1
2
cycles
numeric
1
10

{
4

<-
2

name
1
n

call
2

name
1
length

name
1
x

<-
2

name
1
est

call
3

name
1
rep

numeric
1
0

name
1
n

for
3
i
NULL
0

call
3

name
1
:

numeric
1
1

name
1
cycles

{
6

<-
2

name
1
x.temp

call
3

name
1
shift.sequence

name
1
x

name
1
i

<-
2

name
1
y.temp

call
3

name
1
hft.chisq.M

name
1
x.temp

name
1
M

<-
2

name
1
y.temp.clean

call
2

name
1
denoise.gauss

name
1
y.temp

<-
2

name
1
x.temp.clean

call
2

name
1
hft.chisq.inv

name
1
y.temp.clean

if
2

call
3

name
1
<

call
2

name
1
length

name
1
x.temp.clean

name
1
n

<-
2

name
1
x.temp.clean

call
3

name
1
extrapolate

name
1
x.temp.clean

name
1
n

<-
2

name
1
est

call
3

name
1
+

call
3

name
1
*

(
2

name
1
(

call
3

name
1
-

numeric
1
1

call
3

name
1
/

numeric
1
1

name
1
i

name
1
est

call
3

name
1
*

call
3

name
1
/

numeric
1
1

name
1
i

call
3

name
1
shift.sequence

name
1
x.temp.clean

call
2

name
1
-

name
1
i

return
1

name
1
est
denoise.wavper
function
5
x
missing
0
denoise.gauss
name
1
f.u
M
call
3

name
1
logb

call
2

name
1
length

name
1
x

numeric
1
2
cycles
numeric
1
10

{
6

<-
2

name
1
x.sp

call
2

name
1
hper

name
1
x

<-
2

name
1
res

name
1
x.sp

<-
2

name
1
TT

call
2

name
1
length

name
1
x

<-
2

name
1
J

call
2

name
1
floor

call
3

name
1
logb

name
1
TT

numeric
1
2

for
3
i
NULL
0

call
3

name
1
:

numeric
1
1

(
2

name
1
(

name
1
J

{
1

<-
2

call
3

name
1
[

call
3

name
1
$

name
1
res

character
1
S

call
3

name
1
:

(
2

name
1
(

call
3

name
1
+

call
3

name
1
*

(
2

name
1
(

call
3

name
1
-

name
1
i

numeric
1
1

name
1
TT

numeric
1
1

(
2

name
1
(

call
3

name
1
*

name
1
i

name
1
TT

call
5

name
1
denoise.chisq

call
3

name
1
[

call
3

name
1
$

name
1
x.sp

character
1
S

call
3

name
1
:

(
2

name
1
(

call
3

name
1
+

call
3

name
1
*

(
2

name
1
(

call
3

name
1
-

name
1
i

numeric
1
1

name
1
TT

numeric
1
1

(
2

name
1
(

call
3

name
1
*

name
1
i

name
1
TT

name
1
denoise.gauss

name
1
M

name
1
cycles

return
1

name
1
res
hper
function
2
x
missing
0

{
8

<-
2

name
1
TT

call
2

name
1
length

name
1
x

<-
2

name
1
J

call
2

name
1
floor

call
3

name
1
logb

name
1
TT

numeric
1
2

<-
2

name
1
d

call
3

name
1
rep

numeric
1
0

call
3

name
1
*

name
1
J

name
1
TT

<-
2

name
1
temp

name
1
x

<-
2

name
1
temp1

name
1
x

for
3
j
NULL
0

call
3

name
1
:

numeric
1
1

name
1
J

{
4

<-
2

name
1
gap

call
3

name
1
^

numeric
1
2

(
2

name
1
(

call
3

name
1
-

name
1
j

numeric
1
1

for
3
k
NULL
0

call
3

name
1
:

numeric
1
1

name
1
TT

{
2

<-
2

call
3

name
1
[

name
1
d

call
3

name
1
+

call
3

name
1
*

(
2

name
1
(

call
3

name
1
-

name
1
j

numeric
1
1

name
1
TT

name
1
k

call
3

name
1
/

(
2

name
1
(

call
3

name
1
-

call
3

name
1
[

name
1
temp

call
3

name
1
+

(
2

name
1
(

call
3

name
1
%%

(
2

name
1
(

call
3

name
1
-

name
1
k

numeric
1
1

name
1
TT

numeric
1
1

call
3

name
1
[

name
1
temp

call
3

name
1
+

(
2

name
1
(

call
3

name
1
%%

(
2

name
1
(

call
3

name
1
-

call
3

name
1
+

name
1
k

name
1
gap

numeric
1
1

name
1
TT

numeric
1
1

call
2

name
1
sqrt

numeric
1
2

<-
2

call
3

name
1
[

name
1
temp1

name
1
k

call
3

name
1
/

(
2

name
1
(

call
3

name
1
+

call
3

name
1
[

name
1
temp

call
3

name
1
+

(
2

name
1
(

call
3

name
1
%%

(
2

name
1
(

call
3

name
1
-

name
1
k

numeric
1
1

name
1
TT

numeric
1
1

call
3

name
1
[

name
1
temp

call
3

name
1
+

(
2

name
1
(

call
3

name
1
%%

(
2

name
1
(

call
3

name
1
-

call
3

name
1
+

name
1
k

name
1
gap

numeric
1
1

name
1
TT

numeric
1
1

call
2

name
1
sqrt

numeric
1
2

<-
2

call
3

name
1
[

name
1
d

call
3

name
1
+

call
3

name
1
*

(
2

name
1
(

call
3

name
1
-

name
1
j

numeric
1
1

name
1
TT

(
2

name
1
(

call
3

name
1
:

numeric
1
1

name
1
TT

call
3

name
1
shift.sequence

call
3

name
1
[

name
1
d

call
3

name
1
+

call
3

name
1
*

(
2

name
1
(

call
3

name
1
-

name
1
j

numeric
1
1

name
1
TT

(
2

name
1
(

call
3

name
1
:

numeric
1
1

name
1
TT

call
3

name
1
-

numeric
1
1

call
3

name
1
^

numeric
1
2

(
2

name
1
(

call
3

name
1
-

name
1
j

numeric
1
1

<-
2

name
1
temp

name
1
temp1

<-
2

name
1
S

call
3

name
1
^

name
1
d

numeric
1
2

return
2
TT
name
1
TT
S
name
1
S
f.sp
function
2
x
missing
0

{
1

return
1

call
3

name
1
$

call
3

name
1
smooth.spline

call
3

name
1
:

numeric
1
1

call
2

name
1
length

name
1
x

name
1
x

character
1
y
