R-计算线性委员会 - 寻找公式

Question

使用r，是否有一个公式可以帮助我根据这种情况来计算销售委员会。例如：

如果增长(百分比(在5％至7％之间

变量：

TargetAmt<-100
Earned<-105.6
PctGrowth<-((Earned-TargetAmt)/TargetAmt)*100
PctGrowth

5.6

因此，我现在需要计算他的佣金，这将是10％至12.5％的线性。

我可以通过计算线路的斜率来手动执行此操作。但是，我该如何在r中执行此操作？

Answer 1

1(LM 对于增长5.6％，佣金为10.6％

growth <- c(5, 7)
commission <- c(10, 12.5)
fit <- lm(commission ~ growth)
predict(fit, list(growth = 5.6))
##     1 
## 10.75 

1a(替代，我们可以从线性回归中获取公式，然后将其应用于自己。在这种情况下，斜率为1.25，截距为3.75：

> fit
Call:
lm(formula = commission ~ growth)
Coefficients:
(Intercept)       growth  
       3.75         1.25  

因此，委托是增长率为百分比加3.75个百分点的1.25倍，即1.25 * 5.6 3.75 = 10.75。

2(大约另一种方法是这样使用approx：

approx(growth, commission, xout = 5.6)$y
## [1] 10.75

Answer 2

替代解决方案

查找行的方程

使用y = mx c：

m = (0.125 - 0.1)/(0.07-0.05)
m = 0.025/0.02
m = 1.25

将0.1(10％(和0.05(5％(替换为方程式c

y = 1.25x + c
0.1 = (1.25 * 0.05) + c
0.1 - (1.25 * 0.05) = c
c = 0.0375

我们现在拥有该行的方程式：

y = 1.25x + 0.0375

代码：

TargetAmt <- 100
Earned <- 105.6
profitAsDecimal = (Earned/TargetAmt) - 1
commission = (1.25 * profitAsDecimal) + 0.0375
commissionAsDecimal = (1.25 * profitAsDecimal) + 0.0375

因此，对于5.6的增长，您的委员会将为0.1075。乘以100，以获取10.75的百分比。

此答案将使您的结果从5％到7％等于10％至12.5％。上面的答案从10％到12％