2016-11-10 47 views
-1

我有一个非常大的数据集。这是一些例子。如何根据两个规范预测R中的某些内容?

      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升?

+0

当然在这里你去 https://drive.google.com/file/d/0B5n-r165dW8FWXc1M1ZDcWQ5M0E/ view?usp = sharing –

+1

'm < - lm(HP〜EngineSize,cars,subset = cars $ sport == 1);预测(m,data.frame(EngineSize = 3.5))' – alistaire

回答

1

假设你正在试图预测基于EngineSizeHPsport你可以做到以下几点:

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) 
+0

这正是我所期待的,谢谢! –