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í
754
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, 14:46,  Dobre teda Zacnem ako debil , A odpovedz mi Preco si tych ludi v tvojej teme nazval PRIMITIVI?
dnes, 14:45,  tak ich prestaň obhajovať
dnes, 14:44,  To by som o tom musel vytvorit temu ako ty Ritolezec ,
dnes, 14:44,  Ja nejdem proti kotlebovcom ked som proti vsem , Ukazujem ti len to co ty ukazuujes na jednu...
dnes, 14:43,  ty sa tlačíš liberálnej lúze a asociálom do zadku
dnes, 14:43,  djjaro tak daj niečo o téme
dnes, 14:43,  djjaro ideš fanaticky proti kotlebovcom ale to nemusíš
dnes, 14:42,  djjaro takže odsudzuješ cigánov za to ako sa tam správali ?
dnes, 14:42,  Ale netlac sa im do zdku
dnes, 14:42,  Netrolujem diskutujem s tebou , Preco si sa dostal do osidiel draka ,
dnes, 14:41,  djjaro no vidíš zasa si klamal kotlebovci takéto akcie nerobia
dnes, 14:41,  Ja ti chcempovedat ze aj ty fanaticky ides proti mne co nemusis
dnes, 14:41,  djjaro téma je o čom je ked ťa nezaujíma tak na čo tu troluješ ?
dnes, 14:40,  Ja odsudzujem vsetkych aj seba , aj teba aj kazdeho Lebo som proti vsem ,
dnes, 14:40,  djjaro ako fanaticky obhajuje asociálov a lúzu
dnes, 14:40,  Ved neplac tolko , Ja uz neviem co sa to s tebou robi , Vazne si az po usi v tom ,
dnes, 14:39,  djjaro takže odsudzuješ lúzu ktorá znemožnila konanie mítingu ?
dnes, 14:39,  Hokejis ale rob ako chces tvoja vec , Len si myslim ze mas na viac ale nie v politike , Ta ta...
dnes, 14:39,  ondrej podľa vás fašistov
dnes, 14:38,  neviem o kom píšeš 0:07 / 0:31 Lepší je si to posrat podle svýho, než podle toho, co Ti...
neprehliadnite
df.sk na Facebooku
vyhľadávanie
 
Genialita veľké dielo začína, ale len vytrvalosť ho dokončí.
Prevádzkuje df.sk | TOPlist
(46 449 bytes in 0,455 seconds)