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í
721
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, 20:32,  ondrej61- no čo zdochliak to je všetko?
dnes, 20:31,  tak, tak, čo migrant to vrah, jarabaku...
dnes, 20:30,  A zaroveň odpoveď ja som v Malmo bol tento rok v auguste 2 týždne . Fantasticke mesto ....
dnes, 20:30,  hokejis - neukazuj to Edkovi, on vie, že to je len propaganda ruských trolov.*39*39*39- on to...
dnes, 20:29,  jarabak sa nam stoporil.....*03*03*03...hitlerove črty*03*03*03*03.....
dnes, 20:29,  Edo žil som na Slovensku aj v 90-tych rokoch v dobe mafiánskych gangov ale nikdy som s ich...
dnes, 20:28,  petícia za blokovanie, pokiaľ viem rodičia mi nechcú dať ani cent a také slečny ako ty ma...
dnes, 20:28,  17. jasné , preto majú mnohí tazké srdce. sú to slaboši a úboziaci , ako zijú tak aj...
dnes, 20:27,  Jasné, ozval sa osvietený demokrat. Akú uniformu budem musieť nosiť, keď vyhrá mastný...
dnes, 20:26,  Ten síce poslanci už roky neschválili, evidentne z dôvodu, aby im pri tzv. Slobodnom mandáte...
dnes, 20:25,  Edo migrantské gangy vo Švédsku -...
dnes, 20:25,  ty lepšia ako oni
dnes, 20:25,  Edo to nie je podstatné tvoje drístanie realitu nezmení -...
dnes, 20:24,  Edo nie som zaočkovaný a nemám problém s chrípkou
dnes, 20:24,  Ešte raz moja otazka bol si niekedy vo Švedsku ?
dnes, 20:23,  Vzhľadom k tomu, že občania nemajú možnosť podania podnetov na Mandátový a imunitný...
dnes, 20:23,  Americký troll Edo zasa plače :)
dnes, 20:23,  Havran ja len tu jednu . Výborný vitamín . A kedže som zaočkovaný proti chrípke vypadá to...
dnes, 20:23,  Edo ty si troll, budeš len klamať -...
dnes, 20:21,  Osvietený - zbehli ste sa tu všetkci fašistickí noliberálni smradi? Máš pocit, že...
neprehliadnite
df.sk na Facebooku
vyhľadávanie
 
Vždy je lepšie hovoriť s rozumným človekom o niečom hlúpom, ako s hlupákom o niečom rozumnom.
Prevádzkuje df.sk | TOPlist
(54 559 bytes in 0,698 seconds)