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í
884
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

neprehliadnite
df.sk na Facebooku
vyhľadávanie
 
Nevadí mi názor iných ľudí, ale to, že mi ho chcú nanútiť.
Prevádzkuje df.sk | TOPlist
(45 434 bytes in 0,192 seconds)