x[i, ..., level, block] x[i, ..., level, block] <- value x[[i, ..., level, block]] x[[i, ..., level, block]] <- value x$i x$i <- value
"ptable"
.
i
is a logical vector,
it should have length equal to the number of crystals
or to the number of coefficients in
x
.
For
[[
,
i
must be an integer or a crystal name.
For
$
,
i
must be a crystal name.
i
will be ignored.
0
and
2^level
.
level
is missing
and
i
is a logical vector with the same length as the
number of coefficients in
x
,
then
x[i]
returns either a
wp.molecule
or
cp.molecule
object inheriting from the class
"molecule"
.
Otherwise, if
level
is missing,
then
x[i]
returns an object containing all crystals corresponding to
i
.
It returns an object of class
"wpt"
or
"cpt"
if the
subscripted crystals are orthogonal.
Otherwise it returns an object of class
"wp"
or
"cp"
.
If
level=j
is not missing and
block=b
is not missing,
then
x[level=j, block=b]
returns an object
containing all the
(j, b)
crystal(s).
For wavelet packet tables,
the object has class
"wpt"
.
For cosine packet tables,
the object has class
"cpt"
.
Otherwise, if
level=j
is not missing and
length(j)=1
,
then
x[level=j]
returns
all the crystals in
j
-th level.
For wavelet packet tables,
the object has class
"wpt"
.
For cosine packet tables,
the object has class
"block.cpt"
.
If
level=j
is not missing and length(j)>1,
then x[level=0:j] returns an object of
ptable
(a subtable of
x
).
All objects with class
"wpt"
inherit from
classes
"wp"
and
"crystal.list"
or
"crystal.vector"
.
All objects with class
"cpt"
inherit
from classes
"cp"
and
"crystal.vector"
.
A
"block.cpt"
object inherits from
"cpt"
.
[[ subscript operator produces an object of class
"cp.crystal"
or
"wp.crystal"
:
x[[level=j, block=b]]
returns the
(j, b)
crystal;
x[[i]]
and
x$i
return the
i
-th crystal.
See the chapter "More on Wavelet Analysis" of the S+WAVELETS User's Manual for details and examples of subscripting and assignment.
xx <- make.signal("heavisine") w0 <- wp.table(xx, n.levels=5) w1 <- w0[level=0:3] # subtable of w0 w2 <- w0[level=3, block=5:8] # get w3.5, w3.6, w3.7, w3.0 w3 <- w0[c("s1", "D3", "w2.0", "HLL", "LLL")] # get w1.0 w3.1 w2.0 w3.0 w4 <- w0[[2]] # get wp.crystal w1.0 w5 <- w0[[level=2, block=3]] # get wp.crystal w2.3 w0[abs(w0) < 1] <- 0 # set small coefficients to 0