Skip to content
Snippets Groups Projects
Select Git revision
  • ac7e8a2779634138ac2eef11267d018d8acc714e
  • master default protected
  • beta
  • dev
  • andrewssobral-patch-1
  • update
  • thomas-fork
  • 2.0
  • v3.2.0
  • v3.1.0
  • v3.0
  • bgslib_py27_ocv3_win64
  • bgslib_java_2.0.0
  • bgslib_console_2.0.0
  • bgslib_matlab_win64_2.0.0
  • bgslib_qtgui_2.0.0
  • 2.0.0
  • bgs_console_2.0.0
  • bgs_matlab_win64_2.0.0
  • bgs_qtgui_2.0.0
  • v1.9.2_x86_mfc_gui
  • v1.9.2_x64_java_gui
  • v1.9.2_x86_java_gui
23 results

run_demo.sh

Blame
    • Code owners
    Assign users and groups as approvers for specific file changes. Learn more.
    ols_quiz.R 3.25 KiB 
    
quiz_data$Treatment_C <- as.factor(quiz_data$Treatment_C)
quiz_data$Treatment_D <- as.factor(quiz_data$Treatment_D)

quiz_data$Treatment_C <- relevel(quiz_data$Treatment_C, ref = "No Treatment 3")
quiz_data$Treatment_D <- relevel(quiz_data$Treatment_D, ref = "No Treatment 3")

ols_percentage_correct_A<- lm( percentage_correct ~ as.factor(Treatment_A) ,quiz_data)
summary(ols_percentage_correct_A)
ols_percentage_correct_control_A<- lm( percentage_correct ~ as.factor(Treatment_A) + Z_Mean_NR + as.factor(Gender)+Age_mean+ QFIncome + Uni_degree,quiz_data)
summary(ols_percentage_correct_control_A)

ols_percentage_correct_B<- lm( percentage_correct ~ as.factor(Treatment_B) ,quiz_data)
summary(ols_percentage_correct_B)
ols_percentage_correct_control_B<- lm( percentage_correct ~ as.factor(Treatment_B) + Z_Mean_NR + as.factor(Gender)+Age_mean+ QFIncome + Uni_degree,quiz_data)
summary(ols_percentage_correct_control_B)

ols_percentage_correct_C<- lm( percentage_correct ~ as.factor(Treatment_C) ,quiz_data)
summary(ols_percentage_correct_C)
ols_percentage_correct_control_C<- lm( percentage_correct ~ as.factor(Treatment_C) + Z_Mean_NR + as.factor(Gender)+Age_mean+ QFIncome + Uni_degree,quiz_data)
summary(ols_percentage_correct_control_C)

vif(ols_percentage_correct_control_C)


ols_percentage_correct_D<- lm( percentage_correct ~ as.factor(Treatment_D) ,quiz_data)
summary(ols_percentage_correct_D)
ols_percentage_correct_control_D<- lm( percentage_correct ~ as.factor(Treatment_D) + Z_Mean_NR + as.factor(Gender)+Age_mean+ QFIncome + Uni_degree,quiz_data)
summary(ols_percentage_correct_control_D)
# 
# # Create an HTML results table with customized names and stars
# results_table_3 <- stargazer(
#   ols_quiz_1a, ols_quiz_control_1a, ols_quiz_1b, ols_quiz_control_1b,  
#   align = TRUE,
#   type = "html",
#   dep.var.labels = "No. correct quiz questions",
#   covariate.labels = c("Video 1", "Video 2", "No Info choosen", "Text 1", "Text 2",
#                        "Female", "Divers", "Age", "mittlere Reife", "Abitur", "Berufsausbildung",
#                        "Hochschulabschluss") ,
#   star.cutoffs = c(0.1, 0.05, 0.01),  # Custom significance levels
#   star.char = c("*", "**", "***")  # Custom significance stars
# )
# 
# # Save the HTML table to a file
# writeLines(results_table_3, "Estimation_results/ols/quiz_1.html")
# 
# # Create an HTML results table with customized names and stars
# results_table_4 <- stargazer(
#   ols_quiz_2a, ols_quiz_control_2a, ols_quiz_2b, ols_quiz_control_2b,  
#   align = TRUE,
#   type = "html",
#   dep.var.labels = "No. correct quiz questions",
#   covariate.labels = c("Video", "No Info choosen", "Text",
#                        "Female", "Divers", "Age", "mittlere Reife", "Abitur", "Berufsausbildung",
#                        "Hochschulabschluss") ,
#     star.cutoffs = c(0.1, 0.05, 0.01),  # Custom significance levels
#   star.char = c("*", "**", "***")  # Custom significance stars
# )
# 
# # Save the HTML table to a file
# writeLines(results_table_4, "Estimation_results/ols/quiz_2.html")
# 
# 
# # Poisson regression
# poisson_quiz_2b <- glm(
#   number_correct ~ Dummy_Video + Dummy_no_info + Dummy_nv,
#   quiz_data = quiz_data,
#   family = poisson
# )
# summary(poisson_quiz_2b)