Skip to content
Snippets Groups Projects
Select Git revision
  • 1bb5187c3b8972e6617f3627dbc753e63a7d3f47
  • main default protected
  • test_coef
  • 21-things-to-take-care-of-before-submission
4 results

ols_nr.R

Blame
    • Code owners
    Assign users and groups as approvers for specific file changes. Learn more.
    ols_nr.R 719 B 
    # Analyze NR Score

data$Treatment_C <- as.factor(data$Treatment_C)

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

nr_model <- lm(Z_Mean_NR ~ Age_mean + Uni_degree + Kids_Dummy + Gender_female+ Rent_SQ +
                 Naturalness_SQ + WalkingDistance_SQ , data)

summary(nr_model)

nr_model_treat <- lm(Z_Mean_NR ~ Age_mean + Uni_degree + Kids_Dummy + Gender_female+ QFIncome +
                       as.factor(Treatment_C) + Naturalness_SQ, data)

summary(nr_model_treat)


nr_model_treat_A <- lm(Z_Mean_NR ~ Age_mean + Uni_degree + Kids_Dummy + Gender_female+ QFIncome +
                       as.factor(Treatment_A) + Naturalness_SQ, data)

summary(nr_model_treat_A)

vif(nr_model_treat)