Hoď ma hore
prihlásenie:
Registrácia  |  Zabudnuté heslo
tu sa nachádzate: hlavná stránka  filozofia  téma
kategórie:  

Ako sa naučiť analýzu po druhé

1
reakcií
743
prečítaní
Tému 15. marca 2018, 07:38 založil peter31.

podobné témy:

názov témy
posledná
reakcií
15. 03. 2018
1
 
 


1.
označiť príspevok

peter31
   15. 3. 2018, 07:38 avatar
#1.
maine=read.table("" target="_blank" rel="nofollow" title="http://web.tuke.sk/fei-cit/butka/ie/Maine.dat"">web.tuke.sk Tento odkaz smeruje mimo DF.sk
t=ts(maine, start = c(1996,1), frequency = 12)
plot(t, type="o"

maine1996 = window(t, start=c(1996,1), end=c(1996,12))
mean_months_maine1996 = aggregate(maine1996, FUN=mean, nfrequency = 4)
mean_maine1996 = mean(maine1996)
difference = (mean_months_maine1996 - mean_maine1996)/mean_maine1996

#2.
maine=aggregate(t, FUN = mean, nfrequency = 4)
plot(maine, type="o", lty=2,lwd=2, col=2)

#3.
cbe=read.table("web.tuke.sk Tento odkaz smeruje mimo DF.sk header = T)
head(cbe,2)
choc = ts(cbe[,1], start = c(1958,1), frequency = 12)
beer = ts(cbe[,2], start = c(1958,1), frequency = 12)
elec = ts(cbe[,3], start = c(1958,1), frequency = 12)
cbe_plot=ts(cbe, start = c(1958,1), frequency = 12)
plot(cbind(choc,beer,elec))
plot(cbe_plot, type="h"

#4.
cor(choc,beer)

#5.
ap=AirPassengers
ap.4=filter(ap, c(.5,1,1,.5))
ap.6=filter(ap, c(.5,1,1,1,1,.5))
ap.12=filter(ap, c(.5,1,1,1,1,1,1,1,1,1,1,.5))
plot(cbind(ap.4,ap.6,ap.12))

#6.
ap.multi=decompose(ap, c("multiplicative")
plot(ap.multi)
ap.addi=decompose(ap, c("additive")
plot(ap.addi)

#7.
x=seq(from=0, to=5,by=.1)
y=0.5*x+1
z=.25*sin(10*x)

set.seed(123)
n=rnorm(length(x), mean=0, sd=.5)
plot(cbind(y,z,n), type="l"

#8.
x1=y+z+n
spolu1=ts(x1, start = c(2017,1), frequency = 12)
plot(spolu1)
x2=y*z*n
spolu2=ts(x2, start = c(2017,1), frequency = 12)
plot(spolu2)

#9.
spolu1.multi=decompose(spolu1, c("multiplicative")
plot(spolu1.multi)
spolu2.multi=decompose(spolu2, c("multiplicative")
plot(spolu2.multi)
spolu1.addi=decompose(spolu1, c("additive")
plot(spolu1.addi)
spolu2.addi=decompose(spolu2, c("additive")
plot(spolu2.addi)

#10.
y2=log(x+1)
x1=y2+z+n
spolu1=ts(x1, start = c(2017,1), frequency = 12)
plot(spolu1)
x2=y2*z*n
spolu2=ts(x2, start = c(2017,1), frequency = 12)
plot(spolu2)

spolu1.multi=decompose(spolu1, c("multiplicative")
plot(spolu1.multi)
spolu2.multi=decompose(spolu2, c("multiplicative")
plot(spolu2.multi)
spolu1.addi=decompose(spolu1, c("additive")
plot(spolu1.addi)
spolu2.addi=decompose(spolu2, c("additive")
plot(spolu2.addi)


2.
označiť príspevok

gabriel pb
   15. 3. 2018, 18:21 avatar
dobrí ľudia analyzujú iba svoju dušu
váš príspevok

Pridávať príspevky môžu iba zaregistrovaní účastníci fóra.

Som zaregistrovaný

nick: heslo:
zostať trvalo prihlásený    
Nie som zaregistrovaný

Vaša prezývka:  

Po zaregistrovaní budete automaticky presmerovaní do tejto témy.

najnovšie príspevky na celom fóre

dnes, 22:29,  KDH mimo parlament a chmelar 1 %*39
dnes, 22:22,  A samozrejme volím ĽSNS.*19
dnes, 22:19,  1. SMER 22% 2. ĽSNS 20% 3. Za ľudí 10% 4. OĽANO 9% 5....
dnes, 22:14,  trojka Elán - Tanečnice z Lúčnice deviatka Verný Si :: LCH LIVE!
dnes, 22:07,  na prvé miesto by som dal 3 a 9, taký je svet ak sa nad ním zamyslíte celý svet sa delí na...
dnes, 22:06,  panoramix muž reagovať nahlásiť dnes, 22:05 avatar Napiste svoj odhad 1.SMER 20%...
dnes, 22:05,  najlepšie vzťahy medziľudské sú na veľkú diaľku, že počujeme a nevidíme reni
dnes, 22:05,  Napiste svoj odhad 1.SMER 20% 2.LSNS 18 3. PS-Spolu 13 4. Za Ľudí 10 5. OĽaNO 9 6....
dnes, 22:03,  2, ... dnes sa už naozaj nedá nikomu veriť Gabi, ale čakaj,....čo keby len predsa?!
dnes, 22:02,  3, ...... tak, a "mech nás ten deň prekvapí a nájde nepripravených"! Nuž, dá sa...
dnes, 22:02,  vraví sa tomu nedokonalé krúžkovanie na celé
dnes, 21:55,  Martin HARICH - Čo Potom (Official audio)
dnes, 21:53,  10,..... a čo s tým jednym percentom navyše? To sú tí "ponožkári"?*13
dnes, 21:51,  Viditeľne.
dnes, 21:51,  11 a povedali: "Mužovia galilejskí, čo stojíte a hľadíte do neba? Tento Ježiš,...
dnes, 21:50,  21, ..... nikdy nerob predčasné závery, lebo nikdy nespoznáš pravdu. Hlavne keď sa...
dnes, 21:45,  Veru sklamal, keby nebol pil a fajčil, mohol ešte piť a fajčiť.
dnes, 21:45,  Shagara. Dosť to tam máte poprekrúcané. *21 Veľa vecí logicky nepodoťahovaných. A k...
dnes, 21:40,  20,....teolog blúzni,....neber ho vážne....
dnes, 21:40,  fjuuu a potom naspäť uuujf, bude to moment shagara God's Dream
neprehliadnite
df.sk na Facebooku
vyhľadávanie
 
Za svoje skúsenosti musíme v živote platiť. Ak máme šťastie, dostaneme zľavu.
Prevádzkuje df.sk | TOPlist
(52 350 bytes in 0,444 seconds)