hoď ma hore
Milí diskutujúci. Pri diskutovaní prosím: 1. nepridávaj témy pozostávajúce len z odkazov alebo jednoslovné témy / 2. nepridávaj uražlivé alebo vulgárne komentáre. Ak tieto pravidlá nedodržíš, tvoja téma pravdepodobne skončí v koši. Príjemné diskutovanie :)
none
ak chceš diskutovať, musíš sa registrovať. registrácia

tu sa nachádzaš : 

hlavná stránka  /  filozofia  /  téma

Ako sa naučiť analýzu po tretie

príspevkov
1
zobrazení
0
tému vytvoril(a) 15.3.2018 07:47
posledná zmena 15.3.2018 07:47
1
15.03.2018, 07:47
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)
none

najnovšie príspevky :

prevádzkuje diskusneforum.sk kontaktuj správcu diskusného fóra vytvoril dzI/O 2023 - 2024 veľkosť : 79 357 B vygenerované za : 0.097 s unikátne zobrazenia tém : 36 433 unikátne zobrazenia blogov : 543 táto stránka musí používať koláčiky, aby mohla fungovať...

možnosti

hlavná stránka nastavenia blogy todo

online účastníci :

hľadanie :

blog dňa :

odkaz Šialené zhony alebo pokoj, stromček, pod stromčekom darčeky a ľudia, ktorí sú nejakým spôsobom k sebe viazaní spolu pokope v strese či radosti... A ešte narodeniny... Pre niekoho skut...

citát dňa :

Medzi mužmi a ženami nie je rozdiel. Rozdiel je len medzi dobrými a zlými ľudmi.