_覓 | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁 |
|
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="")
鏤
|
炎概 覲伎レ 讌襷 譟一姶 讌 蟇 ろ襯 覲伎ロ 蠍語企. れ 覦朱 瑚 殊 . (jungim) |