data
(
orni
)
par
(
mfrow=
c
(
2
,
1
)
)
f
<-
22050
spec
(
orni
,
f=f
)
meanspec
(
orni
,
f=f
,
wl=
512
)
