| _覓 | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁 |
|
|
library("forecast")
data(gold)
g <- data.frame(g = na.omit(coredata(gold)))$g
y_width <- c(min(g) - min(g) * 0.05, max(g) - max(g) * 0.05)
plot(g, type="l", lty="dotted", ylim=y_width)
par(new=T)
plot(smooth(g, twiceit=T), type="l", col="blue", ylim=y_width, ylab="")
鏤
|
磯Μ 蠖 れ る れ 磯Μ襯 螻 磯Μ 企蟆 蟆. 谿曙＾ 伎 伎給. 螳 手 伎 蟆 蠏瑚 蠏 豌伎 讀蟇一伎蠍 覓語. れ 讌覃 譴 讌. 蠏碁Μ螻 襾 螻褐 ロ 朱ゼ 螳碁. |