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í
891
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, 16:49,  RICHARD ĎURANA z inštitútu INESS vyvíjal počas doktorandského štúdia vakcíny. Napriek...
dnes, 16:27,  Nadjaaa, =) vonku svieti slnko.. už naň môžem ísť aj bez okuliarov, nedostanem migrénu. .....
dnes, 16:18,  171. Dobre, tak to zjednoduším: Tak to urob. Urob kompletnú analýzu dopadov na...
dnes, 16:16,  A ty sám o sebe vieš, o čom stále melieš a kam to otáčaš? Nie som si tým istý.
dnes, 15:54,  Konecna pandrlackovia co sedite v tom chlieve ktoremu tak honosne hovoria NRSR a nekonate pre...
dnes, 15:49,  Pan Harabin je pre mna prezident a premier v jednej osobe a Doktor Bukovsky je pre mna kapacita a...
dnes, 15:37,  Aby sa Rostas z Mazurekom nevzburil odhodme rušky a nedajme sa očkovať - Srať na to že 100 %...
dnes, 15:35,  -era-, nerozumiem ani "Tak to urobte... Urobte... prijmite... budú s vami... počítajte......
dnes, 15:34,  Niekomu je málo dôkazov i o tom , že je zem guľatá.
dnes, 15:33,  PartOFgod tupý
dnes, 15:30,  -era-, o čom to zas melieš, kam to otáčaš?*09 ... uvediem aktuálny príklad. Klimatické...
dnes, 15:23,  -era-, neporozumel si mi. Nehovorím o "ovplyvnení duchovného sveta tým, ako sa dnes...
dnes, 15:23,  Tak to urobte. Urobte kompletnú analýzu dopadov na spoločnosť, vyhodnoťte mieru...
dnes, 15:16,  -era-, uvedomujem... záleží však aj na miere nebezpečia, ako aj od toho, ako sa dá voči...
dnes, 15:15,  Dúfam že raz donesieš babke tento darček za to že sa o teba ešte stará . keď budeš stať...
dnes, 15:12,  -era- niekedy je to potrebné . Preto sa rušili výherné hracie automaty , nebankovky , preto...
dnes, 15:05,  160. *k myšlienkovému experimentu - ako chceš ty vôbec posúdiť to, čo by som ti ja...
dnes, 15:04,  To ano moj kamos automobilovy pretekar sa isiel previest na elektrokolobezke spadol a zomrel....
dnes, 15:01,  160. A uvedomuješ si vôbec, že NEPRIAMO NEBEZPEČNE sú úplne všetky veci tohto sveta?
dnes, 14:55,  Hlas ľudu, hlas boží :)
neprehliadnite
df.sk na Facebooku
vyhľadávanie
 
Je smutné, keď je sobáš vlastne iba premenou partnerského vzťahu na obchodný.
Prevádzkuje df.sk | TOPlist
(70 655 bytes in 0,369 seconds)