wor4_sols

another year if the probability that a customer with a “VIP Pass” goes to the parks more than 5 times is greater than 0.35. From the data of the current year they know that the probability is 0.5 that a customer buying the “VIP Pass” is 18 years or younger, the probability is 0.4 that a customer with a “VIP Pass” is between 19 and 40 years of age, and the probability is 0.1 that a customer with a “VIP Pass” is 41 years or older. They also know that the probability is 0.4, 0.3 and 0.2 that a “VIP Pass” customer of age ≤ 18 , age 18 − 40 and age ≥ 41 , respectively, goes to the parks more than 5 times during the year. Exercise: Define all relevant events. Answer: Let Y be the event that a VIP pass customer is in the youngest age range. Let M be the event that a VIP pass customer is in the middle age range. Let O be the event that a VIP pass customer is in the oldest age range. Let F be the event that a VIP pass customer uses the pass more than five times in a year. P ( Y )= 0.5 P ( M )= 0.4 P ( O )= 0.1 P ( F ∨ Y )= 0.4 P ( F ∨ M )= 0.3 P ( F ∨ O )= 0.2 Exercise: Modify the following code to create a visualisation of the scenario. library (DiagrammeR) nodes <- create_node_df ( n = 10 , type = "number" , label = c ( "" , "<=18" , "19-40" , ">=41" , "<=5" , ">5" , "<=5" , ">5" , "<=5" , ">5" )) edges <- create_edge_df ( from = c ( 1 , 1 , 1 , 2 , 2 , 3 , 3 , 4 , 4 ), to = c ( 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10 ), label = c (...), rel = "leading to" ) graph <- create_graph ( nodes_df = nodes, edges_df = edges, attr_theme= NULL ) # View the graph render_graph (graph)