Here's the code:
calculate counterfactual outcome
ms_counterfactual <- tibble(
YEAR = c("1995", "2000"),
eligible_counterfactual = c("Eligible (Counterfactual)", "Eligible (Counterfactual)"),
LABFORCE_counterfactual = as.numeric(tg95, tg95 - (cg95 - cg00)))
Here's my values:
tg95 = 0.738
cg95 = 0.580
cg00 = 0.549
When doing this tg95 - (cg95 - cg00) in the console, it gives me 0.7071108
When creating the Tibble object up above, it gives me the same value as tg95.
A tibble: 2 × 3
YEAR eligible_counterfactual LABFORCE_counterfactual
1 1995 Eligible (Counterfactual) 0.738
2 2000 Eligible (Counterfactual) 0.738