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í
742
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, 00:22,  dobrú noc všetkým
dnes, 00:21,  V roku 1989 sme sa mnohí s nádejou zúčastnili na fraške, ktorou ste si pripravili priestor...
dnes, 00:05,  50. ved si o tom zaloz topic :)
dnes, 00:04,  Jasné že nie. Veď Porošenko bol vtedy big kamoš s mastným vlasom Kiskom. *21
včera, 23:59,  Keď ruská diplomacia kritizovala ukrajinu za uctievanie fašistov tak to americkí trolovia...
včera, 23:59,  Čiže si si vedomá že Kiska sa kamarátil s fašistom Porošenkom. ok.
včera, 23:58,  slováci ziadny strach :) http://diskusie.slovakforum.net/t381-topic
včera, 23:58,  47. tak teraz ti spomínam *39
včera, 23:55,  No keď rusko označilo tak Porošenka, kamoša mastného vlasa Kisku, tak to ste nikdy...
včera, 23:49,  Zrazu pre americkú trolku je ruská hláška písmom svätým :)
včera, 23:48,  Rusko okupuje tak najvýš dementnú Edovu hlavu :)
včera, 23:48,  13. to je rana pod pás, ked kotlebu ešte aj Rusko označí za extrémistov *39*39*39*39*39*39
včera, 23:47,  Edo vidí zasa všade LS NS už nie Rusov :)
včera, 23:46,  Edo je trolík :)
včera, 23:46,  Tvoj mastný vlas Kiska pozval fašistu Porošenka do prezidenstkého paláca. Tu nie je o čom...
včera, 23:46,  236- neviem na koho a na čo reaguješ, alebo len tak pre seba, aby reč nestála???
včera, 23:43,  To tu bolo kolotočárov čo tu písali ako treba zatočiť s vycuciavačmi štátu asocialmi a...
včera, 23:42,  A vedeli prečo. "Ukrajinský prezident Petro Porošenko podepsal zákon, který nově...
včera, 23:41,  https://www.mojevideo.sk/video/284de/andrej_kiska_a_fasista_v_palaci.html Andrej kiska je...
včera, 23:41,  kričali to ľudia z ľsns
neprehliadnite
df.sk na Facebooku
vyhľadávanie
 
Úspech v manželstve nezáleží len na tom, aby sme našli toho
pravého partnera, ale hlavne na tom, aby sme my sami boli tou pravou osobou.
Prevádzkuje df.sk | TOPlist
(57 443 bytes in 0,594 seconds)