r - R fft /ウェーブレット関数を使用してXTS周波数プロットをプロットするにはどうすればよいですか？

Question

以下の時系列データをfftまたはウェーブレット関連の関数で変換し、Rを使用してプロットしたいと思います。教えてください。

1. fftまたはウェーブレット図をプロットする方法は？
2. 特定の周波数を抽出し、それを時間領域図と一緒にプロットする方法は？

データは次のとおりです。

> class(zc)
[1] "xts" "zoo"

> str(zc)
An ‘xts’ object from (10/15/12 09:00:00) to (10/15/12 15:15:00) containing:
  Data: num [1:366, 1] 252 253 253 253 253 ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr "Close"
  Indexed by objects of class: [chron,dates,times] TZ: 
  xts Attributes:  
List of 2
 $ tclass: chr [1:3] "chron" "dates" "times"
 $ tzone : chr ""


> head(zc)
                     Close
(10/15/12 09:00:00) 252.40
(10/15/12 09:01:00) 253.10
(10/15/12 09:02:00) 253.15
(10/15/12 09:03:00) 253.30
(10/15/12 09:04:00) 253.25
(10/15/12 09:05:00) 253.45

よろしくお願いします、SKパーク