多谢版主！！
不过我发现此方法好像对A股数据无效。估计是yahoo上没有A股的分红除权数据，或者说数据不全。
我是用下面的股票试的：
<br />
> getSymbols("002572.SZ")<br />
[1] "002572.SZ"<br />
Warning message:<br />
In download.file(paste(yahoo.URL, "s=", Symbols.name, "&a=", from.m, :<br />
downloaded length 11956 != reported length 200<br />
> head(<code>002572.SZ</code>)<br />
002572.SZ.Open 002572.SZ.High 002572.SZ.Low 002572.SZ.Close 002572.SZ.Volume<br />
2011-04-12 80.00 80.10 75.55 77.40 2611700<br />
2011-04-13 77.48 79.36 77.19 78.90 990500<br />
2011-04-14 78.48 78.48 76.28 76.75 649200<br />
2011-04-15 76.35 81.80 76.35 80.29 1022600<br />
2011-04-18 80.00 82.77 79.02 82.00 564100<br />
2011-04-19 81.58 82.11 79.00 80.50 338700<br />
002572.SZ.Adjusted<br />
2011-04-12 76.74<br />
2011-04-13 78.23<br />
2011-04-14 76.10<br />
2011-04-15 79.61<br />
2011-04-18 81.30<br />
2011-04-19 79.81<br />
2011年8月26日曾经10送10，002572.SZ.Close和002572.SZ.Adjusted在2011年4月显然不应该这么接近。
<br />
> getSplits("002572.SZ")<br />
[1] NA<br />
Warning message:<br />
In download.file(paste(yahoo.URL, Symbol.name, "&a=", from.m, "&b=", :<br />
downloaded length 76 != reported length 200<br />
getSplits()返回NA。
所以，我猜想应该是yahoo的A股分红除权数据不完整。
</p>
