\u00dcstel hareketli ortalama,<\/strong> son g\u00f6zlemlere daha fazla a\u011f\u0131rl\u0131k veren bir hareketli ortalama t\u00fcr\u00fcd\u00fcr; bu, son trendleri daha h\u0131zl\u0131 yakalayabildi\u011fi anlam\u0131na gelir.<\/span><\/p>\n Bu e\u011fitimde R’de \u00fcstel hareketli ortalaman\u0131n nas\u0131l hesaplanaca\u011f\u0131 a\u00e7\u0131klanmaktad\u0131r.<\/span><\/p>\n R’de a\u015fa\u011f\u0131daki veri \u00e7er\u00e7evesine sahip oldu\u011fumuzu varsayal\u0131m:<\/span><\/p>\n \u00d6nceki birka\u00e7 d\u00f6neme ait \u00fcstel a\u011f\u0131rl\u0131kl\u0131 hareketli ortalamay\u0131 hesaplamak i\u00e7in pracma<\/strong> paketindeki movavg() fonksiyonunu<\/a> kullanabiliriz.<\/span><\/p>\n Bu i\u015flev a\u015fa\u011f\u0131daki s\u00f6zdizimini kullan\u0131r:<\/span><\/p>\n movavg(x, n, type=c(\u201cs\u201d, \u201ct\u201d, \u201cw\u201d, \u201cm\u201d, \u201ce\u201d, \u201cr\u201d))<\/strong><\/span><\/p>\n Alt\u0131n:<\/span><\/p>\n \u00d6rne\u011fin, \u00f6nceki d\u00f6rt d\u00f6nemi kullanarak \u00fcstel a\u011f\u0131rl\u0131kl\u0131 hareketli ortalaman\u0131n nas\u0131l hesaplanaca\u011f\u0131 a\u015fa\u011f\u0131da a\u00e7\u0131klanm\u0131\u015ft\u0131r:<\/span><\/p>\n Sat\u0131\u015flar\u0131 4 g\u00fcnl\u00fck \u00fcstel a\u011f\u0131rl\u0131kl\u0131 hareketli ortalamaya g\u00f6re g\u00f6rselle\u015ftirmek i\u00e7in ggplot2 g\u00f6rselle\u015ftirme k\u00fct\u00fcphanesini de kullanabiliriz:<\/span> <\/p>\n K\u0131rm\u0131z\u0131 \u00e7izgi her d\u00f6nemdeki sat\u0131\u015flar\u0131, mavi \u00e7izgi ise \u00fcstel a\u011f\u0131rl\u0131kl\u0131 hareketli ortalamay\u0131 g\u00f6steriyor.<\/span><\/p>\n R’de birden fazla s\u00fctun nas\u0131l \u00e7izilir<\/a> Zaman serisi analizinde hareketli ortalama , basit\u00e7e \u00f6nceki birka\u00e7 periyodun ortalama de\u011feridir. \u00dcstel hareketli ortalama, son g\u00f6zlemlere daha fazla a\u011f\u0131rl\u0131k veren bir hareketli ortalama t\u00fcr\u00fcd\u00fcr; bu, son trendleri daha h\u0131zl\u0131 yakalayabildi\u011fi anlam\u0131na gelir. Bu e\u011fitimde R’de \u00fcstel hareketli ortalaman\u0131n nas\u0131l hesaplanaca\u011f\u0131 a\u00e7\u0131klanmaktad\u0131r. \u00d6rnek: R’de \u00fcstel hareketli ortalama R’de a\u015fa\u011f\u0131daki veri \u00e7er\u00e7evesine sahip oldu\u011fumuzu varsayal\u0131m: #create […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"class_list":["post-1161","post","type-post","status-publish","format-standard","hentry","category-rehber"],"yoast_head":"\n \u00d6rnek: R’de \u00fcstel hareketli ortalama<\/strong><\/h3>\n
#create data frame<\/span>\ndf <- data.frame(period=1:10,\n sales=c(25, 20, 14, 16, 27, 20, 12, 15, 14, 19))\n\n#view data frame<\/span>\ndf\n\n period sales\n1 1 25\n2 2 20\n3 3 14\n4 4 16\n5 5 27\n6 6 20\n7 7 12\n8 8 15\n9 9 14\n10 10 19\n<\/strong><\/pre>\n\n
library<\/span> (pracma)<\/span>\n\n#create new column to hold 4-day exponentially weighted moving average<\/span>\ndf$EWM_4day <- movavg<\/span> (df$sales, n=4, type=' e<\/span> ')\n\n#view DataFrame<\/span> \ndf\n\n period sales 4dayEWM\n0 1 25 25.000000\n1 2 20 23.000000\n2 3 14 19.400000\n3 4 16 18.040000\n4 5 27 21.624000\n5 6 20 20.974400\n6 7 12 17.384640\n7 8 15 16.430784\n8 9 14 15.458470\n9 10 19 16.875082<\/strong><\/pre>\n library<\/span> (ggplot2)\nlibrary<\/span> (reshape2)\n\n#melt data into format for easy plotting\n<\/span>df <- melt<\/span> (df, id.vars = ' period<\/span> ', variable.name = ' series<\/span> ')\n\n#plot sales vs. 4-day exponentially weighted moving average\n<\/span>ggplot(df, aes<\/span> (period, value)) +\n geom_line( aes<\/span> (color=series))\n<\/strong><\/span><\/pre>\n![\"R](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/ewma1.png\")
<\/p>\n Ek kaynaklar<\/strong><\/span><\/h3>\n
R’deki s\u00fctunlar\u0131n ortalamas\u0131 nas\u0131l al\u0131n\u0131r?<\/a>
R’de grup ba\u015f\u0131na ortalama nas\u0131l hesaplan\u0131r<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"