-
Notifications
You must be signed in to change notification settings - Fork 2
/
MLR 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)