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 tretie

1
reakcií
727
prečítaní
Tému 15. marca 2018, 07:47 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:47 avatar
data(iris)
setosa <- iris[iris$Species == "setosa",]
attach(setosa)
plot(Petal.Length, Petal.Width)

petal_lm <- lm(Petal.Width ~ Petal.Length)
abline(petal_lm)
summary(petal_lm)

hist(residuals(petal_lm))
deviance(petal_lm)

predict(petal_lm, newdata = data.frame(Petal.Length=6),
interval="prediction"

predictions <- predict(petal_lm, newdata = setosa, interval="prediction"
plot(Petal.Length, Petal.Width)
lines(predictions[,1] ~ setosa, col=1)
lines(predictions[,2] ~ setosa, col=1, lty=2)
lines(predictions[,3] ~ setosa, col=1, lty=2)

detach(setosa)
versicol=iris[iris$Species=='versicolor',]
attach(versicol)
versi_lm=lm(Petal.Width ~ Petal.Length)
predict(petal_lm, newdata = data.frame(Petal.Length=6),
interval="prediction"
summary(versi_lm)

rozsireny=lm(Petal.Width ~ Petal.Length+Sepal.Width)
summary(rozsireny)

cele=iris
detach(versicol)
attach(cele)
model=lm(Petal.Width ~ Petal.Length+Species)
summary(model)

x1=runif(50,1,10)
x2=runif(50,1,10)
x3=runif(50,1,10)
y=0.5+2*x1+1.5*x2+x3+x4
sum=rnorm(length(y),0,0.5)
predx1=lm(y~x1)
predx2=lm(y~x2)
predx3=lm(y~x3)
summary(predx3)
residuals(predx3)

x4=2*x1
predx4=lm(y~x1+x4+x2+x3)
summary(predx4)
cor(x1,x4)

predx5=lm(y~x4+x2+x3)
summary(predx5)


2.
označiť príspevok

gabriel pb
   15. 3. 2018, 18:19 avatar
aj hackeri majú právo na spravodlivý súd
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:48,  Aj mne chýba, asi išiel na pracovnú cestu na Mars.
dnes, 16:47,  Nekŕm kokota, on sa dojebe sám !!!!!!!!!! *06*06
dnes, 16:45,  Tento nick svedčí o tom, že aj správny chlap, turista, otec rodiny národovec sa môže...
dnes, 16:33,  Hotový odvrátený *40
dnes, 16:26,  20/ Dobrucky sladucky aj na kriz by sa nechal pribit!!!:)))
dnes, 16:17,  občas vas treba poštuchať.....
dnes, 16:16,  A to ste uz poculi co sa sepka na ulici medzi ludmi vraj sa na Slovensku chysta nieco velke co sa...
dnes, 16:15,  Ondrej, ja som stravil na západe cez tri roky a už som ti to písal. Nedá sa s tebou baviť,...
dnes, 16:14,  A je len logické, že nefunguje. Veď kultúra je identita. Kto sa chce vzdať svojej...
dnes, 16:13,  16/ Zase vedla ako jedla!!!My sa ich nebojime len ich tu nechceme! Staci povedal ze ano a uz ich...
dnes, 16:12,  14/ To vies Ondrejko moje vedomie je rasista!!!!Vedomie ako posledny pozorovatel myslienkovych...
dnes, 16:11,  zaujimave na tom je že my sa bojime migrantov viac ako na zapade a pritom tu skoro ziadní...
dnes, 16:08,  Hlúpe sú tvoje drísty o rasizme.
dnes, 16:07,  co je na tom hlupe?....ved maskujete svoj rasizmus.......
dnes, 16:07,  Ver čomu chceš Ondrej, len rátaj s následkami. Dnes sme už v štádiu, kedy sa dá...
dnes, 16:05,  ondrej no vidíš multikultúra nefunguje. To je neskutočné že vo svojom fanatizme chceš...
dnes, 16:05,  Ondrej vidíš sám, že niesi schopný adekvátne reagovať a si nútený si vymýšlať...
dnes, 16:05,  migranti nemaju zaujem na tom aby tu robili bordel, ale chcu tiu žiť..Aj ked samozrejme že sa...
dnes, 16:01,  vam nejde o kriminalitu, to pouzivate len aby ste maskovali svoju rasisticku povahu.....nieco ako...
dnes, 16:01,  Kto prekladal katolícku Bibliu? Príklad: Katolícky preklad Jn 1,18 ..... "Boha nikto...
neprehliadnite
df.sk na Facebooku
vyhľadávanie
 
Buď činný vždy, keď je to možné, a odpočívaj vždy, keď je to potrebné.
Prevádzkuje df.sk | TOPlist
(48 811 bytes in 0,586 seconds)