knitr::opts_chunk$set(echo = FALSE)

rm(list=ls())
library(tidyverse)
## Warning: package 'ggplot2' was built under R version 4.4.3
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.5.2     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.1
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(here)
## here() starts at C:/Users/andre/OneDrive/Documents/cephalopod_survey
library(table1)
## 
## Attaching package: 'table1'
## 
## The following objects are masked from 'package:base':
## 
##     units, units<-
library(DT)
library(flextable)
## 
## Attaching package: 'flextable'
## 
## The following object is masked from 'package:purrr':
## 
##     compose
res_URBANRURAL_subgroup = readRDS(here("results/res_URBANRURAL_subgroup.rds"))
res_Gender_subgroup = readRDS(here("results/res_Gender_subgroup.rds"))
res_Age_subgroup = readRDS(here("results/res_Age_subgroup.rds"))
res_income_cat_subgroup = readRDS(here("results/res_income_cat_subgroup.rds"))


cat("Interaction Pvalues: Urban-Rural \n")
## Interaction Pvalues: Urban-Rural
knitr::kable(res_URBANRURAL_subgroup$res_int_pval, digits=3)
URBANRURAL tr int.pval Y
City Sentience + Wellfare 0.504 ban farming
City Environmental 0.307 ban farming
City Economics 0.050 ban farming
City Public health 0.688 ban farming
City Sentience + Wellfare 0.687 ban sale
City Environmental 0.576 ban sale
City Economics 0.283 ban sale
City Public health 0.595 ban sale
City Sentience + Wellfare 0.599 ban subsidies
City Environmental 0.153 ban subsidies
City Economics 0.125 ban subsidies
City Public health 0.757 ban subsidies 
cat("Interaction Pvalues: Gender \n")
## Interaction Pvalues: Gender
knitr::kable(res_Gender_subgroup$res_int_pval, digits=3)
Gender tr int.pval Y
Female+ Sentience + Wellfare 0.783 ban farming
Female+ Environmental 0.603 ban farming
Female+ Economics 0.568 ban farming
Female+ Public health 0.947 ban farming
Female+ Sentience + Wellfare 0.684 ban sale
Female+ Environmental 0.538 ban sale
Female+ Economics 0.840 ban sale
Female+ Public health 0.431 ban sale
Female+ Sentience + Wellfare 0.727 ban subsidies
Female+ Environmental 0.382 ban subsidies
Female+ Economics 0.822 ban subsidies
Female+ Public health 0.718 ban subsidies 
cat("Interaction Pvalues: Age \n")
## Interaction Pvalues: Age
knitr::kable(res_Age_subgroup$res_int_pval, digits=3)
Age tr int.pval Y
18-24 Sentience + Wellfare 0.613 ban farming
18-24 Environmental 0.817 ban farming
18-24 Economics 0.553 ban farming
18-24 Public health 0.504 ban farming
18-24 Sentience + Wellfare 0.164 ban sale
18-24 Environmental 0.268 ban sale
18-24 Economics 0.359 ban sale
18-24 Public health 0.170 ban sale
18-24 Sentience + Wellfare 0.135 ban subsidies
18-24 Environmental 0.291 ban subsidies
18-24 Economics 0.604 ban subsidies
18-24 Public health 0.338 ban subsidies 
cat("Interaction Pvalues: Income \n")
## Interaction Pvalues: Income
knitr::kable(res_income_cat_subgroup$res_int_pval, digits=3)
income_cat tr int.pval Y
Low Sentience + Wellfare 0.201 ban farming
Low Environmental 0.558 ban farming
Low Economics 0.792 ban farming
Low Public health 0.988 ban farming
Low Sentience + Wellfare 0.096 ban sale
Low Environmental 0.786 ban sale
Low Economics 0.561 ban sale
Low Public health 0.918 ban sale
Low Sentience + Wellfare 0.106 ban subsidies
Low Environmental 0.594 ban subsidies
Low Economics 0.879 ban subsidies
Low Public health 0.737 ban subsidies 
# ban_farming_subgroup, aes(x=Country, y=est, group=tr, color=tr)) + geom_point(position = position_dodge(0.5)) +
#   geom_errorbar(aes(ymin=est.lb, ymax=est.ub), width=0.2, position = position_dodge(0.5)) +
#   geom_hline(yintercept=0, linetype="dashed", color="red") +
#   labs(title="Effect of Message on Support\nfor Ban on Farming Octopuses",
#        x="Message Condition",
#        y="Estimated Effect (95% CI)") +
#   coord_flip() +
#   theme_minimal() 


res_URBANRURAL_subgroup$p_farming

knitr::kable(res_URBANRURAL_subgroup$res_ban_farming_subgroup, digits=2)
URBANRURAL est se.est est.lb est.ub Z P tr int.pval Y
City 0.31 0.07 0.16 0.46 4.17 0.00 Sentience + Wellfare 0.50 1
Town 0.41 0.09 0.23 0.58 4.58 0.00 Sentience + Wellfare 0.50 2
Village 0.34 0.17 0.00 0.67 1.95 0.05 Sentience + Wellfare 0.50 3
Hamlet or Isolated Dwelling 0.41 0.27 -0.13 0.94 1.49 0.14 Sentience + Wellfare 0.50 4
Prefer not to say 1.87 1.00 -0.08 3.82 1.88 0.06 Sentience + Wellfare 0.50 5
City 0.13 0.08 -0.02 0.28 1.68 0.09 Environmental 0.31 6
Town 0.13 0.09 -0.05 0.31 1.41 0.16 Environmental 0.31 7
Village 0.11 0.17 -0.22 0.44 0.67 0.50 Environmental 0.31 8
Hamlet or Isolated Dwelling 0.82 0.30 0.22 1.41 2.69 0.01 Environmental 0.31 9
Prefer not to say 0.92 1.28 -1.59 3.43 0.72 0.47 Environmental 0.31 10
City -0.08 0.07 -0.22 0.07 -1.04 0.30 Economics 0.05 11
Town 0.13 0.09 -0.05 0.31 1.45 0.15 Economics 0.05 12
Village -0.08 0.18 -0.43 0.27 -0.45 0.65 Economics 0.05 13
Hamlet or Isolated Dwelling 0.76 0.30 0.17 1.35 2.53 0.01 Economics 0.05 14
Prefer not to say 0.60 0.79 -0.95 2.15 0.76 0.45 Economics 0.05 15
City 0.24 0.08 0.09 0.39 3.15 0.00 Public health 0.69 16
Town 0.28 0.09 0.11 0.46 3.18 0.00 Public health 0.69 17
Village 0.08 0.16 -0.24 0.40 0.52 0.61 Public health 0.69 18
Hamlet or Isolated Dwelling 0.47 0.32 -0.16 1.11 1.46 0.14 Public health 0.69 19
Prefer not to say 1.14 0.55 0.06 2.22 2.08 0.04 Public health 0.69 20 
res_URBANRURAL_subgroup$p_sale

knitr::kable(res_URBANRURAL_subgroup$res_ban_sale_subgroup, digits=2)
URBANRURAL est se.est est.lb est.ub Z P tr int.pval Y
City 0.38 0.08 0.23 0.54 4.94 0.00 Sentience + Wellfare 0.69 1
Town 0.36 0.09 0.17 0.54 3.81 0.00 Sentience + Wellfare 0.69 2
Village 0.34 0.18 -0.02 0.70 1.83 0.07 Sentience + Wellfare 0.69 3
Hamlet or Isolated Dwelling 0.44 0.33 -0.21 1.10 1.32 0.19 Sentience + Wellfare 0.69 4
Prefer not to say 0.57 0.72 -0.84 1.98 0.79 0.43 Sentience + Wellfare 0.69 5
City 0.18 0.08 0.03 0.34 2.31 0.02 Environmental 0.58 6
Town 0.17 0.09 0.00 0.34 1.92 0.06 Environmental 0.58 7
Village 0.24 0.18 -0.11 0.58 1.33 0.18 Environmental 0.58 8
Hamlet or Isolated Dwelling 0.63 0.34 -0.02 1.29 1.89 0.06 Environmental 0.58 9
Prefer not to say 0.73 1.24 -1.69 3.16 0.59 0.55 Environmental 0.58 10
City -0.07 0.08 -0.23 0.08 -0.95 0.34 Economics 0.28 11
Town 0.11 0.09 -0.07 0.29 1.21 0.23 Economics 0.28 12
Village 0.01 0.18 -0.35 0.36 0.03 0.97 Economics 0.28 13
Hamlet or Isolated Dwelling 0.61 0.33 -0.05 1.26 1.82 0.07 Economics 0.28 14
Prefer not to say 0.78 0.89 -0.96 2.53 0.88 0.38 Economics 0.28 15
City 0.26 0.08 0.11 0.42 3.27 0.00 Public health 0.60 16
Town 0.21 0.09 0.03 0.39 2.34 0.02 Public health 0.60 17
Village 0.24 0.17 -0.10 0.58 1.37 0.17 Public health 0.60 18
Hamlet or Isolated Dwelling 0.27 0.34 -0.39 0.93 0.80 0.42 Public health 0.60 19
Prefer not to say 0.48 0.69 -0.86 1.83 0.70 0.48 Public health 0.60 20 
res_URBANRURAL_subgroup$p_subsidies

knitr::kable(res_URBANRURAL_subgroup$res_ban_subsidies_subgroup, digits=2)
URBANRURAL est se.est est.lb est.ub Z P tr int.pval Y
City 0.23 0.08 0.07 0.40 2.80 0.01 Sentience + Wellfare 0.60 1
Town 0.26 0.10 0.05 0.46 2.47 0.01 Sentience + Wellfare 0.60 2
Village 0.34 0.19 -0.02 0.71 1.83 0.07 Sentience + Wellfare 0.60 3
Hamlet or Isolated Dwelling 0.51 0.33 -0.14 1.15 1.54 0.12 Sentience + Wellfare 0.60 4
Prefer not to say 0.98 0.73 -0.45 2.41 1.34 0.18 Sentience + Wellfare 0.60 5
City 0.05 0.09 -0.11 0.22 0.63 0.53 Environmental 0.15 6
Town 0.10 0.10 -0.10 0.30 0.97 0.33 Environmental 0.15 7
Village 0.23 0.18 -0.13 0.58 1.26 0.21 Environmental 0.15 8
Hamlet or Isolated Dwelling 0.68 0.35 -0.01 1.37 1.92 0.05 Environmental 0.15 9
Prefer not to say 3.12 0.81 1.53 4.70 3.84 0.00 Environmental 0.15 10
City -0.12 0.09 -0.29 0.05 -1.43 0.15 Economics 0.12 11
Town 0.13 0.10 -0.07 0.34 1.30 0.19 Economics 0.12 12
Village 0.18 0.19 -0.19 0.55 0.97 0.33 Economics 0.12 13
Hamlet or Isolated Dwelling 0.71 0.33 0.06 1.37 2.14 0.03 Economics 0.12 14
Prefer not to say 0.94 0.69 -0.41 2.30 1.37 0.17 Economics 0.12 15
City 0.15 0.09 -0.02 0.32 1.76 0.08 Public health 0.76 16
Town 0.13 0.10 -0.07 0.33 1.29 0.20 Public health 0.76 17
Village 0.34 0.18 -0.02 0.71 1.86 0.06 Public health 0.76 18
Hamlet or Isolated Dwelling 0.42 0.34 -0.24 1.07 1.23 0.22 Public health 0.76 19
Prefer not to say -0.51 0.79 -2.07 1.04 -0.65 0.52 Public health 0.76 20 
res_income_cat_subgroup$p_farming

knitr::kable(res_income_cat_subgroup$res_ban_farming_subgroup, digits=2)
income_cat est se.est est.lb est.ub Z P tr int.pval Y
Low 0.32 0.07 0.17 0.46 4.29 0.00 Sentience + Wellfare 0.20 1
Medium 0.34 0.10 0.15 0.53 3.57 0.00 Sentience + Wellfare 0.20 2
High 0.60 0.15 0.31 0.89 4.03 0.00 Sentience + Wellfare 0.20 3
No response 0.17 0.25 -0.33 0.66 0.66 0.51 Sentience + Wellfare 0.20 4
Low 0.12 0.08 -0.03 0.26 1.51 0.13 Environmental 0.56 5
Medium 0.21 0.09 0.02 0.39 2.20 0.03 Environmental 0.56 6
High 0.04 0.15 -0.25 0.34 0.28 0.78 Environmental 0.56 7
No response 0.41 0.25 -0.08 0.90 1.63 0.10 Environmental 0.56 8
Low 0.06 0.08 -0.09 0.20 0.73 0.47 Economics 0.79 9
Medium -0.04 0.10 -0.23 0.15 -0.41 0.68 Economics 0.79 10
High 0.10 0.15 -0.20 0.40 0.66 0.51 Economics 0.79 11
No response -0.07 0.23 -0.52 0.37 -0.32 0.75 Economics 0.79 12
Low 0.26 0.07 0.11 0.40 3.43 0.00 Public health 0.99 13
Medium 0.24 0.09 0.06 0.42 2.58 0.01 Public health 0.99 14
High 0.24 0.17 -0.08 0.57 1.47 0.14 Public health 0.99 15
No response 0.34 0.24 -0.12 0.80 1.44 0.15 Public health 0.99 16 
res_income_cat_subgroup$p_sale

knitr::kable(res_income_cat_subgroup$res_ban_sale_subgroup, digits=2)
income_cat est se.est est.lb est.ub Z P tr int.pval Y
Low 0.34 0.08 0.19 0.49 4.37 0.00 Sentience + Wellfare 0.10 1
Medium 0.36 0.10 0.16 0.56 3.56 0.00 Sentience + Wellfare 0.10 2
High 0.68 0.16 0.37 0.98 4.31 0.00 Sentience + Wellfare 0.10 3
No response -0.03 0.27 -0.55 0.49 -0.13 0.90 Sentience + Wellfare 0.10 4
Low 0.19 0.08 0.04 0.34 2.42 0.02 Environmental 0.79 5
Medium 0.22 0.10 0.02 0.41 2.20 0.03 Environmental 0.79 6
High 0.15 0.15 -0.15 0.46 0.99 0.32 Environmental 0.79 7
No response 0.45 0.26 -0.06 0.97 1.72 0.08 Environmental 0.79 8
Low 0.01 0.08 -0.14 0.17 0.15 0.88 Economics 0.56 9
Medium -0.04 0.10 -0.23 0.15 -0.43 0.67 Economics 0.56 10
High 0.21 0.16 -0.10 0.52 1.31 0.19 Economics 0.56 11
No response 0.10 0.24 -0.38 0.57 0.40 0.69 Economics 0.56 12
Low 0.22 0.08 0.07 0.38 2.91 0.00 Public health 0.92 13
Medium 0.25 0.10 0.05 0.44 2.50 0.01 Public health 0.92 14
High 0.35 0.17 0.02 0.68 2.06 0.04 Public health 0.92 15
No response 0.26 0.28 -0.29 0.82 0.94 0.35 Public health 0.92 16 
res_income_cat_subgroup$p_subsidies

knitr::kable(res_income_cat_subgroup$res_ban_subsidies_subgroup, digits=2)
income_cat est se.est est.lb est.ub Z P tr int.pval Y
Low 0.28 0.08 0.11 0.44 3.27 0.00 Sentience + Wellfare 0.11 1
Medium 0.20 0.11 -0.02 0.41 1.81 0.07 Sentience + Wellfare 0.11 2
High 0.49 0.17 0.17 0.82 2.98 0.00 Sentience + Wellfare 0.11 3
No response -0.02 0.29 -0.59 0.54 -0.07 0.94 Sentience + Wellfare 0.11 4
Low 0.17 0.08 0.01 0.34 2.04 0.04 Environmental 0.59 5
Medium 0.06 0.11 -0.15 0.27 0.55 0.59 Environmental 0.59 6
High 0.07 0.17 -0.26 0.40 0.39 0.70 Environmental 0.59 7
No response -0.01 0.30 -0.60 0.58 -0.05 0.96 Environmental 0.59 8
Low 0.07 0.09 -0.10 0.24 0.81 0.42 Economics 0.88 9
Medium -0.06 0.11 -0.27 0.16 -0.52 0.61 Economics 0.88 10
High 0.05 0.18 -0.29 0.40 0.30 0.77 Economics 0.88 11
No response 0.16 0.26 -0.35 0.68 0.63 0.53 Economics 0.88 12
Low 0.21 0.09 0.05 0.38 2.51 0.01 Public health 0.74 13
Medium 0.10 0.11 -0.11 0.31 0.91 0.36 Public health 0.74 14
High 0.18 0.18 -0.17 0.53 0.99 0.32 Public health 0.74 15
No response 0.08 0.29 -0.49 0.64 0.26 0.79 Public health 0.74 16 
res_Gender_subgroup$p_farming

knitr::kable(res_Gender_subgroup$res_ban_farming_subgroup, digits=2)
Gender est se.est est.lb est.ub Z P tr int.pval Y
Female+ 0.37 0.08 0.21 0.52 4.63 0.00 Sentience + Wellfare 0.78 1
Male 0.34 0.07 0.20 0.48 4.72 0.00 Sentience + Wellfare 0.78 2
Female+ 0.12 0.08 -0.04 0.28 1.42 0.15 Environmental 0.60 3
Male 0.17 0.07 0.03 0.31 2.41 0.02 Environmental 0.60 4
Female+ 0.06 0.08 -0.10 0.21 0.74 0.46 Economics 0.57 5
Male 0.00 0.07 -0.15 0.14 -0.04 0.96 Economics 0.57 6
Female+ 0.26 0.08 0.10 0.41 3.28 0.00 Public health 0.95 7
Male 0.25 0.07 0.11 0.39 3.42 0.00 Public health 0.95 8 
res_Gender_subgroup$p_sale

knitr::kable(res_Gender_subgroup$res_ban_sale_subgroup, digits=2)
Gender est se.est est.lb est.ub Z P tr int.pval Y
Female+ 0.40 0.08 0.23 0.56 4.81 0.00 Sentience + Wellfare 0.68 1
Male 0.35 0.08 0.20 0.50 4.58 0.00 Sentience + Wellfare 0.68 2
Female+ 0.25 0.08 0.08 0.41 2.99 0.00 Environmental 0.54 3
Male 0.18 0.07 0.03 0.32 2.37 0.02 Environmental 0.54 4
Female+ 0.04 0.08 -0.12 0.19 0.43 0.66 Economics 0.84 5
Male 0.01 0.08 -0.14 0.16 0.16 0.87 Economics 0.84 6
Female+ 0.30 0.08 0.14 0.46 3.61 0.00 Public health 0.43 7
Male 0.21 0.08 0.06 0.36 2.77 0.01 Public health 0.43 8 
res_Gender_subgroup$p_subsidies

knitr::kable(res_Gender_subgroup$res_ban_subsidies_subgroup, digits=2)
Gender est se.est est.lb est.ub Z P tr int.pval Y
Female+ 0.29 0.09 0.12 0.47 3.25 0.00 Sentience + Wellfare 0.73 1
Male 0.25 0.08 0.09 0.41 3.00 0.00 Sentience + Wellfare 0.73 2
Female+ 0.18 0.09 0.00 0.35 1.99 0.05 Environmental 0.38 3
Male 0.07 0.08 -0.09 0.23 0.89 0.37 Environmental 0.38 4
Female+ 0.02 0.09 -0.16 0.19 0.20 0.84 Economics 0.82 5
Male 0.05 0.09 -0.12 0.21 0.53 0.59 Economics 0.82 6
Female+ 0.14 0.09 -0.03 0.32 1.59 0.11 Public health 0.72 7
Male 0.19 0.08 0.03 0.35 2.32 0.02 Public health 0.72 8 
res_Age_subgroup$p_farming

knitr::kable(res_Age_subgroup$res_ban_farming_subgroup, digits=2)
Age est se.est est.lb est.ub Z P tr int.pval Y
18-24 0.37 0.16 0.04 0.69 2.23 0.03 Sentience + Wellfare 0.61 1
25-34 0.33 0.13 0.08 0.58 2.57 0.01 Sentience + Wellfare 0.61 2
35-44 0.28 0.14 0.01 0.55 2.05 0.04 Sentience + Wellfare 0.61 3
45-54 0.34 0.12 0.11 0.56 2.91 0.00 Sentience + Wellfare 0.61 4
55-64 0.55 0.13 0.31 0.80 4.37 0.00 Sentience + Wellfare 0.61 5
65+ 0.26 0.12 0.01 0.50 2.06 0.04 Sentience + Wellfare 0.61 6
18-24 0.07 0.17 -0.26 0.41 0.43 0.66 Environmental 0.82 7
25-34 0.26 0.13 -0.01 0.52 1.91 0.06 Environmental 0.82 8
35-44 0.06 0.13 -0.19 0.32 0.47 0.64 Environmental 0.82 9
45-54 0.23 0.12 0.00 0.45 1.95 0.05 Environmental 0.82 10
55-64 0.06 0.13 -0.19 0.31 0.46 0.65 Environmental 0.82 11
65+ 0.16 0.13 -0.10 0.41 1.22 0.22 Environmental 0.82 12
18-24 0.15 0.16 -0.17 0.47 0.92 0.36 Economics 0.55 13
25-34 0.21 0.13 -0.04 0.46 1.66 0.10 Economics 0.55 14
35-44 -0.06 0.14 -0.33 0.21 -0.43 0.67 Economics 0.55 15
45-54 -0.01 0.12 -0.24 0.23 -0.04 0.97 Economics 0.55 16
55-64 -0.04 0.13 -0.29 0.21 -0.29 0.77 Economics 0.55 17
65+ -0.07 0.13 -0.32 0.18 -0.52 0.60 Economics 0.55 18
18-24 0.02 0.14 -0.26 0.30 0.16 0.87 Public health 0.50 19
25-34 0.36 0.13 0.10 0.62 2.72 0.01 Public health 0.50 20
35-44 0.17 0.13 -0.08 0.42 1.34 0.18 Public health 0.50 21
45-54 0.19 0.12 -0.05 0.43 1.57 0.12 Public health 0.50 22
55-64 0.30 0.13 0.05 0.56 2.33 0.02 Public health 0.50 23
65+ 0.37 0.13 0.12 0.62 2.87 0.00 Public health 0.50 24 
res_Age_subgroup$p_sale

knitr::kable(res_Age_subgroup$res_ban_sale_subgroup, digits=2)
Age est se.est est.lb est.ub Z P tr int.pval Y
18-24 0.54 0.17 0.21 0.88 3.16 0.00 Sentience + Wellfare 0.16 1
25-34 0.22 0.14 -0.05 0.48 1.62 0.11 Sentience + Wellfare 0.16 2
35-44 0.35 0.14 0.09 0.62 2.60 0.01 Sentience + Wellfare 0.16 3
45-54 0.25 0.12 0.01 0.49 2.03 0.04 Sentience + Wellfare 0.16 4
55-64 0.52 0.14 0.25 0.80 3.79 0.00 Sentience + Wellfare 0.16 5
65+ 0.42 0.13 0.15 0.68 3.11 0.00 Sentience + Wellfare 0.16 6
18-24 0.34 0.17 0.00 0.67 1.96 0.05 Environmental 0.27 7
25-34 0.26 0.14 -0.01 0.53 1.86 0.06 Environmental 0.27 8
35-44 0.06 0.13 -0.19 0.31 0.49 0.63 Environmental 0.27 9
45-54 0.24 0.12 0.00 0.48 1.99 0.05 Environmental 0.27 10
55-64 0.16 0.13 -0.10 0.42 1.19 0.24 Environmental 0.27 11
65+ 0.22 0.14 -0.04 0.49 1.65 0.10 Environmental 0.27 12
18-24 0.28 0.17 -0.06 0.61 1.62 0.11 Economics 0.36 13
25-34 0.05 0.13 -0.21 0.31 0.37 0.71 Economics 0.36 14
35-44 -0.08 0.14 -0.35 0.19 -0.60 0.55 Economics 0.36 15
45-54 -0.04 0.13 -0.28 0.21 -0.28 0.78 Economics 0.36 16
55-64 0.04 0.13 -0.22 0.29 0.27 0.79 Economics 0.36 17
65+ -0.02 0.13 -0.28 0.24 -0.14 0.89 Economics 0.36 18
18-24 -0.06 0.16 -0.38 0.26 -0.38 0.70 Public health 0.17 19
25-34 0.10 0.13 -0.16 0.36 0.74 0.46 Public health 0.17 20
35-44 0.18 0.13 -0.08 0.44 1.36 0.17 Public health 0.17 21
45-54 0.34 0.13 0.09 0.60 2.68 0.01 Public health 0.17 22
55-64 0.35 0.13 0.09 0.61 2.65 0.01 Public health 0.17 23
65+ 0.42 0.14 0.16 0.69 3.13 0.00 Public health 0.17 24 
res_Age_subgroup$p_subsidies

knitr::kable(res_Age_subgroup$res_ban_subsidies_subgroup, digits=2)
Age est se.est est.lb est.ub Z P tr int.pval Y
18-24 0.12 0.19 -0.24 0.49 0.65 0.51 Sentience + Wellfare 0.13 1
25-34 0.24 0.14 -0.03 0.51 1.73 0.08 Sentience + Wellfare 0.13 2
35-44 0.37 0.14 0.09 0.65 2.60 0.01 Sentience + Wellfare 0.13 3
45-54 0.29 0.13 0.04 0.54 2.29 0.02 Sentience + Wellfare 0.13 4
55-64 0.36 0.16 0.05 0.67 2.28 0.02 Sentience + Wellfare 0.13 5
65+ 0.16 0.15 -0.14 0.45 1.03 0.30 Sentience + Wellfare 0.13 6
18-24 -0.12 0.19 -0.48 0.25 -0.63 0.53 Environmental 0.29 7
25-34 0.22 0.14 -0.05 0.50 1.61 0.11 Environmental 0.29 8
35-44 0.21 0.14 -0.06 0.48 1.54 0.12 Environmental 0.29 9
45-54 0.18 0.13 -0.07 0.44 1.40 0.16 Environmental 0.29 10
55-64 0.09 0.15 -0.21 0.39 0.59 0.56 Environmental 0.29 11
65+ 0.00 0.15 -0.30 0.30 -0.01 1.00 Environmental 0.29 12
18-24 0.12 0.18 -0.23 0.48 0.69 0.49 Economics 0.60 13
25-34 0.05 0.14 -0.22 0.33 0.39 0.70 Economics 0.60 14
35-44 0.11 0.15 -0.18 0.40 0.75 0.45 Economics 0.60 15
45-54 0.02 0.13 -0.24 0.28 0.16 0.87 Economics 0.60 16
55-64 -0.10 0.16 -0.40 0.21 -0.62 0.54 Economics 0.60 17
65+ 0.02 0.15 -0.27 0.31 0.16 0.87 Economics 0.60 18
18-24 -0.24 0.18 -0.59 0.11 -1.37 0.17 Public health 0.34 19
25-34 0.25 0.14 -0.02 0.52 1.80 0.07 Public health 0.34 20
35-44 0.15 0.14 -0.13 0.42 1.03 0.30 Public health 0.34 21
45-54 0.24 0.13 -0.03 0.50 1.76 0.08 Public health 0.34 22
55-64 0.24 0.15 -0.05 0.54 1.62 0.11 Public health 0.34 23
65+ 0.20 0.15 -0.10 0.50 1.30 0.19 Public health 0.34 24