如何解决R中的营销优化-最佳比例结果组合
我希望能够选择电视广告类型的最佳组合,以最大程度地增加收入。下面我显示了一些可重现的代码
test<-data.frame(revenue=runif(50,min=1,max=10000),ad_1=runif(50,max=100000),ad_2=runif(50,ad_3=runif(50,max=10000))%>%
mutate(ad_1_proportion=100*ad_1/(ad_1+ad_2+ad_3))%>%
mutate(ad_2_proportion=100*ad_2/(ad_1+ad_2+ad_3))%>%
mutate(ad_3_proportion=100*ad_3/(ad_1+ad_2+ad_3))
library(lpSolve)
mod <- lp("max",# min/max
test$revenue,# Objective
rbind(test$ad_1_proportion,test$ad_2_proportion,test$ad_3_proportion,test$ad_1_proportion,test$ad_3_proportion),# Constraint matrix
c(">=",">=","<=","<="),# Constraint directions
c(0,100,100))
mod$objval
mod$solution
运行解决方案时,我得到以下信息:
mod $ solution [1] 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 10.986145 0.000000 0.000000 0.000000 [12] 0.000000 0.000000 0.000000 0.000000 0.000000 5.235809 0.000000 0.000000 0.000000 0.000000 0.000000 [23] 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 [34] 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 [45] 48.778046 0.000000 0.000000 0.000000 0.000000 0.000000
但是我想要的答案是,例如,最佳组合是25%广告1、65%广告2、10%广告3。我没有得到3个值的解决方案,所以想知道我做错了什么?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。