grpprice<-function(startMonth,endMonth){
grpprice<-NULL
alltvinputtotal<-sum(stockeddata[(stockeddata$month>=startMonth&stockeddata$month<=endMonth),c('tv_all')])
allgrpinputtotal<-sum(stockeddata[(stockeddata$month>=startMonth&stockeddata$month<=endMonth),c('grp_all')])
grpprice$pricepergrp<-alltvinputtotal/allgrpinputtotal
tvinputtotal<-sum(stockeddata[(unstockeddata$month>=startMonth&stockeddata$month<=endMonth),c('tv')])
tvgrpinputtotal<-sum(stockeddata[(unstockeddata$month>=startMonth&stockeddata$month<=endMonth),c('grp_tv')])
grpprice$tvpricepergrp<-tvinputtotal/tvgrpinputtotal
catvinputtotal<-sum(stockeddata[(unstockeddata$month>=startMonth&stockeddata$month<=endMonth),c('cable_tv')])
catvgrpinputtotal<-sum(stockeddata[(unstockeddata$month>=startMonth&stockeddata$month<=endMonth),c('grp_ca')])
grpprice$catvpricepergrp<-catvinputtotal/catvgrpinputtotal
jptvinputtotal<-sum(stockeddata[(unstockeddata$month>=startMonth&stockeddata$month<=endMonth),c('jp')])
jptvgrpinputtotal<-sum(stockeddata[(unstockeddata$month>=startMonth&stockeddata$month<=endMonth),c('grp_jp')])
grpprice$jptvpricepergrp<-jptvinputtotal/jptvgrpinputtotal
assign('grpprice',grpprice,envir=.GlobalEnv)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.