data
(
orni
)
spec1
<-
meanspec
(
orni
,
f=
22050
)
symba
(
spec1
[
,
2
]
,
plot
=
TRUE
)