R
-
animation 패키지를 이용한 구구단R 2017. 9. 6. 16:30
install.packages("animation")library(animation) # 1초 간격으로 구구단이 보이도록 설정 animation::ani.options(interval = 1) for(i in 1:9){ for(j in 1:9){ plot.new() rect(0, 0, 2, 2, col="yellow") message = paste0(i, " * ", j, " = ", i*j) text(0.5, 0.5, message, cex=4, col=rgb(0, 0, 1, 1)) animation::ani.pause() } } [참고] 빅데이터분석의 첫걸음 R로 배우는 코딩, 장용식/강희구 지음, 생능출판, p157~158
-
-
단순 지수평활법(Simple Exponential Smoothing)R 2017. 8. 28. 17:03
forecast 패키지에서 제공하는 ets() 함수를 이용하여 단순 지수평활법(Simple Exponential Smoothing)을 하는 과정은 다음과 같다. install.packages("forecast") library(forecast) # 단순 지수평활법(Simple exponential smoothing) sms.fit = forecast::ets(nhtemp, model = "ANN") sms.fit # 1단계 선행 예측 forecast::forecast(sms.fit, 1) # 시계열 그래프 plot(forecast::forecast(sms.fit, 1), xlab = "Year", ylab = expression("Temperature(", degree*F, ")"), main = "Ne..