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

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

podobné témy:



1.
označiť príspevok

peter31
   15. 3. 2018, 07:38 avatar
# uloha 6
set.seed(1234)
x <- rnorm(100, mean = 1, sd = 2)
y <- rnorm(100, mean = 1, sd = 2)
cor(x,y)
plot(y ~ x)

x = c(x, 10)
y = c(y, 20)
cor(x,y)
plot(y ~ x)

# uloha 7
set.seed(123)
x <- rnorm(100, mean = 1, sd = 2)
y <- rnorm(100, mean = 1, sd = 2)
cor(x,y)

y2 <- rnorm(100, mean = 1, sd = 1.5)
cor(x,y2)
hist(y2, freq=FALSE)
lines(density(y2))

y3 <- rnorm(100, mean = 1, sd = 1)
cor(x,y3)
hist(y3, freq=FALSE)
lines(density(y3))

y4 <- rnorm(100, mean = 1, sd = 0.5)
cor(x,y4)
hist(y4, freq=FALSE)
lines(density(y4))

# uloha 8
x <- seq(from = 0, to = 10, by = 0.5)
f <- function(x) { 2.5*x + 2 }
y <- sapply(x,f)

noise <- rnorm(length(y), mean = 0, sd = 0.5)
y <- y + noise
plot(y ~ x)

noise2 <- rnorm(length(y), mean = 0, sd = 1)
y <- y + noise2
plot(y ~ x)
cor(x,y)

noise3 <- rnorm(length(y), mean = 0, sd = 1.5)
y <- y + noise3
plot(y ~ x)
cor(x,y)

noise4 <- rnorm(length(y), mean = 0, sd = 2)
y <- y + noise4
plot(y ~ x)
cor(x,y)

noise5 <- rnorm(length(y), mean = 0, sd = 3)
y <- y + noise5
plot(y ~ x)
cor(x,y)

# uloha 9
x <- runif(100, min = 0, max = 10)
f <- function(x){ 2*sin(x) + x }
y <- sapply(x,f)

noise <- rnorm(length(y), mean = 0, sd = 0.1)
y <- y + noise
plot(y ~ x)
cor(x,y)


2.
označiť príspevok

Jarno666 muž
   15. 3. 2018, 09:57

Príspevok bol vymazaný administrátorom.

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:25,  V roku 1989 sme sa mnohí s nádejou zúčastnili na fraške, ktorou ste si pripravili priestor...
dnes, 00:24,  V roku 1989 sme sa mnohí s nádejou zúčastnili na fraške, ktorou ste si pripravili priestor...
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ě...
neprehliadnite
df.sk na Facebooku
vyhľadávanie
 
Úspešný muž je ten, ktorý zarobí viac, než stačí minúť jeho žena. Úspešná žena je tá, ktorá si takého muža dokáže nájsť.
Prevádzkuje df.sk | TOPlist
(69 771 bytes in 0,446 seconds)