-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathMLR ComputerData.R
72 lines (56 loc) · 1.12 KB
/
MLR ComputerData.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
library(e1071)
library(car)
ComputerData <- read.csv("~/Downloads/Data Science/data set/Computer_Data.csv")
ComputerData <- ComputerData[,-1]
orgdata <- ComputerData
attach(ComputerData)
summary(ComputerData)
sd(price)
sd(speed)
sd(hd)
sd(ram)
sd(screen)
sd(ads)
sd(trend)
var(price)
var(speed)
var(hd)
var(ram)
var(screen)
var(ads)
var(trend)
skewness(price)
skewness(speed)
skewness(hd)
skewness(ram)
skewness(screen)
skewness(ads)
skewness(trend)
kurtosis(price)
kurtosis(speed)
kurtosis(hd)
kurtosis(ram)
kurtosis(screen)
kurtosis(ads)
kurtosis(trend)
plot(speed, price)
plot(hd, price)
plot(ram, price)
plot(screen, price)
plot(ads, price)
plot(trend, price)
plot(cd, price)
plot(multi, price)
plot(premium, price)
pairs(ComputerData)
model <- lm(price ~ speed + hd + ram + screen + ads + trend + cd + multi + premium, data = ComputerData)
summary(model)
model2 <- lm(price ~ ., data = ComputerData[-c(1441, 1701),])
summary(model2)
vif(model2)
avPlots(model2)
model3 <- lm(price ~ speed + hd + ram + screen + ads + trend + premium, data = ComputerData[-c(1441, 1701),])
summary(model3)
avPlots(model3)
plot(model)
qqPlot(model)