# install.packages("R6")
library(R6)
# Defining CIR6 class: ---------------------------------------------
GSMSubscriber <- R6Class(
classname = "GSMSubscriber",
public = list(
portable = FALSE,
cloneable = FALSE,
# CIR6 class fields -- general ---------------------------------------------
hash_number_A = "list",
# hash_tariff = "list",
# event = "list",
# event_sub = "list",
# cost = "list",
# call_duration_minutes = "list",
# data_volume_mb = "list",
# device_type = "list",
# phone_price_category = "list",
# interest = "list",
# dropped_calls = "list",
# dropped_calls_ratio = "list",
# CIR6 class fields -- a subscriber portrait ----
# Billing section
billing_tariff.plan = "list",
billing_arpu = "list",
billing_usage = "list",
billing_top.up = "list",
# Service usage
service.usage_renewal = "list",
service.usage_interest.in.new.service = "list",
service.usage_ott.stream = "list",
service.usage_last.update = "list",
# Predictive model
pred.model_churn.score = "list",
pred.model_mnp.out = "list",
pred.model_change.tariff = "list",
pred.model_winback = "list",
# Social data
social.data_age = "list",
social.data_sex = "list",
social.data_ethnic.group = "list",
social.data_marriage = "list",
social.data_household = "list",
social.data_wager = "list",
# Technical stream
tech.stream_out.of.service = "list",
tech.stream_drop.calls = "list",
tech.stream_data.speed = "list",
tech.stream_location = "list",
# Value management
value.mngt_life.stage = "list",
value.mngt_value.over.time = "list",
value.mngt_mnp.in.out = "list",
value.mngt_margin.optimisation = "list",
# Web data
web.data_cookie = "list",
web.data_browsing.history = "list",
web.data_adblock = "list",
web.data_popular.url = "list",
web.data_click.rate = "list",
# Device
device_type = "list",
device_price = "list",
device_applications = "list",
device_last.update = "list",
# CIR6 class initialize method ---------------------------------------------
initialize = function(hash_number_A = "1",
billing_tariff.plan = "1",
billing_arpu = "1",
billing_usage = "1",
billing_top.up = "1",
# Service usage
service.usage_renewal = "1",
service.usage_interest.in.new.service = "1",
service.usage_ott.stream = "1",
service.usage_last.update = "1",
# Predictive model
pred.model_churn.score = "1",
pred.model_mnp.out = "1",
pred.model_change.tariff = "1",
pred.model_winback = "1",
# Social data
social.data_age = "1",
social.data_sex = "1",
social.data_ethnic.group = "1",
social.data_marriage = "1",
social.data_household = "1",
social.data_wager = "1",
# Technical stream
tech.stream_out.of.service = "1",
tech.stream_drop.calls = "1",
tech.stream_data.speed = "1",
tech.stream_location = "1",
# Value management
value.mngt_life.stage = "1",
value.mngt_value.over.time = "1",
value.mngt_mnp.in.out = "1",
value.mngt_margin.optimisation = "1",
# Web data
web.data_cookie = "1",
web.data_browsing.history = "1",
web.data_adblock = "1",
web.data_popular.url = "1",
web.data_click.rate = "1",
# Device
device_type = "1",
device_price = "1",
device_applications = "1",
device_last.update = "1"
# hash_tariff = "1",
# event = "1",
# event_sub = "1",
# network_service_direction = "1",
# event_start_date = "1",
# LAT = "1",
# LON = "1" ,
# cost = 1,
# hash_number_B = "1",
# number_B_category = "1",
# call_duration_minutes = 1,
# data_volume_mb = 1,
# hash_accum_code = "1",
# device_type = "1",
# phone_price_category = "1",
# interest_1 = "1",
# interest_2 = "1",
# interest_3 = "1",
# interest_4 = "1",
# interest_5 = "1"
) {
self$hash_number_A <- hash_number_A
self$billing_tariff.plan <- billing_tariff.plan
self$billing_arpu <- billing_arpu
self$billing_usage <- billing_usage
self$billing_top.up <- billing_top.up
# Service usage
self$service.usage_renewal <- service.usage_renewal
self$service.usage_interest.in.new.service <- service.usage_interest.in.new.service
self$service.usage_ott.stream <- service.usage_ott.stream
self$service.usage_last.update <- service.usage_last.update
# Predictive model
self$pred.model_churn.score <- pred.model_churn.score
self$pred.model_mnp.out <- pred.model_mnp.out
self$pred.model_change.tariff <- pred.model_change.tariff
self$pred.model_winback <- pred.model_winback
# Social data
self$social.data_age <- social.data_age
self$social.data_sex <- social.data_sex
self$social.data_ethnic.group <- social.data_ethnic.group
self$social.data_marriage <- social.data_marriage
self$social.data_household <- social.data_household
self$social.data_wager <- social.data_wager
# Technical stream
self$tech.stream_out.of.service <- tech.stream_out.of.service
self$tech.stream_drop.calls <- tech.stream_drop.calls
self$tech.stream_data.speed <- tech.stream_data.speed
self$tech.stream_location <- tech.stream_location
# Value management
self$value.mngt_life.stage <- value.mngt_life.stage
self$value.mngt_value.over.time <- value.mngt_value.over.time
self$value.mngt_mnp.in.out <- value.mngt_mnp.in.out
self$value.mngt_margin.optimisation <- value.mngt_margin.optimisation
# Web data
self$web.data_cookie <- web.data_cookie
self$web.data_browsing.history <- web.data_browsing.history
self$web.data_adblock <- web.data_adblock
self$web.data_popular.url <- web.data_popular.url
self$web.data_click.rate <- web.data_click.rate
# Device
self$device_type <- device_type
self$device_price <- device_price
self$device_applications <- device_applications
self$device_last.update <- device_last.update
# self$hash_tariff <- hash_tariff
# self$event <- event
# self$event_sub <- event_sub
# self$network_service_direction <- network_service_direction
# self$event_start_date <- event_start_date
# self$LAT <- LAT
# self$LON <- LON
# self$cost <- cost
# self$hash_number_B <- hash_number_B
# self$number_B_category <- number_B_category
# self$call_duration_minutes <- call_duration_minutes
# self$data_volume_mb <- data_volume_mb
# self$hash_accum_code <- hash_accum_code
# self$device_type <- device_type
# self$phone_price_category <- phone_price_category
# self$interest_1 <- interest_1
# self$interest_2 <- interest_2
# self$interest_3 <- interest_3
# self$interest_4 <- interest_4
# self$interest_5 <- interest_5
},
# CIR6 class methods -- general ------------
set_hash_number_A = function(value) {
self$hash_number_A <- value
},
get_hash_number_A = function() {
self$hash_number_A
},
# set_hash_tariff = function(value) {
# self$hash_tariff <- value
# },
# get_hash_tariff = function() {
# self$hash_tariff
# },
# set_event = function(value) {
# self$event <- value
# },
# get_event = function() {
# self$event
# },
# set_event_sub = function(value) {
# self$event_sub <- value
# },
# get_event_sub = function() {
# self$event_sub
# },
# set_network_service_direction = function(value) {
# self$network_service_direction <- value
# },
# get_network_service_direction = function() {
# self$network_service_direction
# },
# set_event_start_date = function(value) {
# self$event_start_date <- value
# },
# get_event_start_date = function() {
# self$event_start_date
# },
# set_LAT = function(value) {
# self$LAT <- value
# },
# get_LAT = function() {
# self$LAT
# },
# set_LON = function(value) {
# self$LON <- value
# },
# get_LON = function() {
# self$LON
# },
# set_cost = function(value) {
# self$cost <- value
# },
# get_cost = function() {
# self$cost
# },
# set_hash_number_B = function(value) {
# self$hash_number_B <- value
# },
# get_hash_number_B = function() {
# self$hash_number_B
# },
# set_number_B_category = function(value) {
# self$number_B_category <- value
# },
# get_number_B_category = function() {
# self$number_B_category
# },
# set_call_duration_minutes = function(value) {
# self$call_duration_minutes <- value
# },
# get_call_duration_minutes = function() {
# self$call_duration_minutes
# },
# set_data_volume_mb = function(value) {
# self$data_volume_mb <- value
# },
# get_data_volume_mb = function() {
# self$data_volume_mb
# },
# set_hash_accum_code = function(value) {
# self$hash_accum_code <- value
# },
# get_hash_accum_code = function() {
# self$hash_accum_code
# },
# set_device_type = function(value) {
# self$device_type <- value
# },
# get_device_type = function() {
# self$device_type
# },
# set_phone_price_category = function(value) {
# self$phone_price_category <- value
# },
# get_phone_price_category = function() {
# self$phone_price_category
# },
# set_interest_1 = function(value) {
# self$interest_1 <- value
# },
# get_interest_1 = function() {
# self$interest_1
# },
# set_interest_2 = function(value) {
# self$interest_2 <- value
# },
# get_interest_2 = function() {
# self$interest_2
# },
# set_interest_3 = function(value) {
# self$interest_3 <- value
# },
# get_interest_3 = function() {
# self$interest_3
# },
# set_interest_4 = function(value) {
# self$interest_4 <- value
# },
# get_interest_4 = function() {
# self$interest_4
# },
# set_interest_5 = function(value) {
# self$interest_5 <- value
# },
# get_interest_5 = function() {
# self$interest_5
# }
# CIR6 class methods -- general
set_billing_tariff.plan = function(value) {
self$billing_tariff.plan = value
},
get_billing_tariff.plan = function() {
self$billing_tariff.plan
},
set_billing_arpu = function(value) {
self$billing_arpu = value
},
get_billing_arpu = function() {
self$billing_arpu
},
set_billing_usage = function(value) {
self$billing_usage = value
},
get_billing_usage = function() {
self$billing_usage
},
set_billing_top.up = function(value) {
self$billing_top.up = value
},
get_billing_top.up = function() {
self$billing_top.up
},
set_service.usage_renewal = function(value) {
self$service.usage_renewal = value
},
get_service.usage_renewal = function() {
self$service.usage_renewal
},
set_service.usage_interest.in.new.service = function(value) {
self$service.usage_interest.in.new.service = value
},
get_service.usage_interest.in.new.service = function() {
self$service.usage_interest.in.new.service
},
set_service.usage_ott.stream = function(value) {
self$service.usage_ott.stream = value
},
get_service.usage_ott.stream = function() {
self$service.usage_ott.stream
},
set_service.usage_last.update = function(value) {
self$service.usage_last.update = value
},
get_service.usage_last.update = function() {
self$service.usage_last.update
},
set_pred.model_churn.score = function(value) {
self$pred.model_churn.score = value
},
get_pred.model_churn.score = function() {
self$pred.model_churn.score
},
set_pred.model_mnp.out = function(value) {
self$pred.model_mnp.out = value
},
get_pred.model_mnp.out = function() {
self$pred.model_mnp.out
},
set_pred.model_change.tariff = function(value) {
self$pred.model_change.tariff = value
},
get_pred.model_change.tariff = function() {
self$pred.model_change.tariff
},
set_pred.model_winback = function(value) {
self$pred.model_winback = value
},
get_pred.model_winback = function() {
self$pred.model_winback
},
set_social.data_age = function(value) {
self$social.data_age = value
},
get_social.data_age = function() {
self$social.data_age
},
set_social.data_sex = function(value) {
self$social.data_sex = value
},
get_social.data_sex = function() {
self$social.data_sex
},
set_social.data_ethnic.group = function(value) {
self$social.data_ethnic.group = value
},
get_social.data_ethnic.group = function() {
self$social.data_ethnic.group
},
set_social.data_marriage = function(value) {
self$social.data_marriage = value
},
get_social.data_marriage = function() {
self$social.data_marriage
},
set_social.data_household = function(value) {
self$social.data_household = value
},
get_social.data_household = function() {
self$social.data_household
},
set_social.data_wager = function(value) {
self$social.data_wager = value
},
get_social.data_wager = function() {
self$social.data_wager
},
set_tech.stream_out.of.service = function(value) {
self$tech.stream_out.of.service = value
},
get_tech.stream_out.of.service = function() {
self$tech.stream_out.of.service
},
set_tech.stream_drop.calls = function(value) {
self$tech.stream_drop.calls = value
},
get_tech.stream_drop.calls = function() {
self$tech.stream_drop.calls
},
set_tech.stream_data.speed = function(value) {
self$tech.stream_data.speed = value
},
get_tech.stream_data.speed = function() {
self$tech.stream_data.speed
},
set_tech.stream_location = function(value) {
self$tech.stream_location = value
},
get_tech.stream_location = function() {
self$tech.stream_location
},
set_value.mngt_life.stage = function(value) {
self$value.mngt_life.stage = value
},
get_value.mngt_life.stage = function() {
self$value.mngt_life.stage
},
set_value.mngt_value.over.time = function(value) {
self$value.mngt_value.over.time = value
},
get_value.mngt_value.over.time = function() {
self$value.mngt_value.over.time
},
set_value.mngt_mnp.in.out = function(value) {
self$value.mngt_mnp.in.out = value
},
get_value.mngt_mnp.in.out = function() {
self$value.mngt_mnp.in.out
},
set_value.mngt_margin.optimisation = function(value) {
self$value.mngt_margin.optimisation = value
},
get_value.mngt_margin.optimisation = function() {
self$value.mngt_margin.optimisation
},
set_web.data_cookie = function(value) {
self$web.data_cookie = value
},
get_web.data_cookie = function() {
self$web.data_cookie
},
set_web.data_browsing.history = function(value) {
self$web.data_browsing.history = value
},
get_web.data_browsing.history = function() {
self$web.data_browsing.history
},
set_web.data_adblock = function(value) {
self$web.data_adblock = value
},
get_web.data_adblock = function() {
self$web.data_adblock
},
set_web.data_popular.url = function(value) {
self$web.data_popular.url = value
},
get_web.data_popular.url = function() {
self$web.data_popular.url
},
set_web.data_click.rate = function(value) {
self$web.data_click.rate = value
},
get_web.data_click.rate = function() {
self$web.data_click.rate
},
set_device_type = function(value) {
self$device_type = value
},
get_device_type = function() {
self$device_type
},
set_device_price = function(value) {
self$device_price = value
},
get_device_price = function() {
self$device_price
},
set_device_applications = function(value) {
self$device_applications = value
},
get_device_applications = function() {
self$device_applications
},
set_device_last.update = function(value) {
self$device_last.update = value
},
get_device_last.update = function() {
self$device_last.update
}
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.