给定两个规范,如何预测 R 中的某些内容?
How to predict something in R given two specifications?
我有一个非常大的数据集。这是其中的一些示例。
Car sport SUV Wagon Minivan Pickup AWD RWD MSRP Invoice EngineSize Cylinders HP City.MPG Hwy.MPG Weight
Chevrolet Aveo 4dr 0 0 0 0 0 0 0 11690 10965 1.6 4 103 28 34 2370
Chevrolet Aveo LS 4dr hatch 0 0 0 0 0 0 0 12585 11802 1.6 4 103 28 34 2348
Chevrolet Cavalier 2dr 0 0 0 0 0 0 0 14610 13697 2.2 4 140 26 37 2617
Chevrolet Cavalier 4dr 0 0 0 0 0 0 0 14810 13884 2.2 4 140 26 37 2676
Chevrolet Cavalier LS 2dr 0 0 0 0 0 0 0 16385 15357 2.2 4 140 26 37 2617
Dodge Neon SE 4dr 0 0 0 0 0 0 0 13670 12849 2.0 4 132 29 36 2581
我想做的是预测一台3.5升发动机跑车的马力。老实说,我不太确定从哪里开始。我做了这些模型来寻找跑车的马力。
sportFilter <- cars$sport==1
hpModelSport <- lm(cars$HP[sportFilter] ~ cars$EngineSize[sportFilter])
这是引擎尺寸。
hpModel <- lm(HP ~ EngineSize, data = cars)
但是我该如何使用这两个。而且发动机尺寸模型只是一般,如何指定3.5升?
假设您尝试根据 EngineSize
和 sport
预测 HP
,您可以执行以下操作:
cars <- read.table("d:/Downloads/04cars.csv", header =T, sep =",", stringsAsFactors = FALSE)
fit <- lm(HP ~ EngineSize + sport , data=cars)
vals <- data.frame(EngineSize = 3.5, sport = 1)
predict(fit, newdata=vals)
我有一个非常大的数据集。这是其中的一些示例。
Car sport SUV Wagon Minivan Pickup AWD RWD MSRP Invoice EngineSize Cylinders HP City.MPG Hwy.MPG Weight
Chevrolet Aveo 4dr 0 0 0 0 0 0 0 11690 10965 1.6 4 103 28 34 2370
Chevrolet Aveo LS 4dr hatch 0 0 0 0 0 0 0 12585 11802 1.6 4 103 28 34 2348
Chevrolet Cavalier 2dr 0 0 0 0 0 0 0 14610 13697 2.2 4 140 26 37 2617
Chevrolet Cavalier 4dr 0 0 0 0 0 0 0 14810 13884 2.2 4 140 26 37 2676
Chevrolet Cavalier LS 2dr 0 0 0 0 0 0 0 16385 15357 2.2 4 140 26 37 2617
Dodge Neon SE 4dr 0 0 0 0 0 0 0 13670 12849 2.0 4 132 29 36 2581
我想做的是预测一台3.5升发动机跑车的马力。老实说,我不太确定从哪里开始。我做了这些模型来寻找跑车的马力。
sportFilter <- cars$sport==1
hpModelSport <- lm(cars$HP[sportFilter] ~ cars$EngineSize[sportFilter])
这是引擎尺寸。
hpModel <- lm(HP ~ EngineSize, data = cars)
但是我该如何使用这两个。而且发动机尺寸模型只是一般,如何指定3.5升?
假设您尝试根据 EngineSize
和 sport
预测 HP
,您可以执行以下操作:
cars <- read.table("d:/Downloads/04cars.csv", header =T, sep =",", stringsAsFactors = FALSE)
fit <- lm(HP ~ EngineSize + sport , data=cars)
vals <- data.frame(EngineSize = 3.5, sport = 1)
predict(fit, newdata=vals)