##
library(readr)
library(tidyverse)
library(lme4)
library(lmerTest)
library(dplyr)
home_dir = "/Users/max/Documents/Dissertation/Study 1 - Nature Pain MRI/Data & Analyses/Upload/Final_Upload/Source_Data/Tables_S1_S17"
# define file paths
#define file paths
imm_rat_path = file.path(home_dir, "immediate_ratings.csv")
post_pain_path = file.path(home_dir, "post_pain_ratings.csv")
signature_path = file.path(home_dir, "signatures_allreg.csv")
roi_path = file.path(home_dir, "roi_allreg.csv")
roi_env_path = file.path(home_dir, "roi_all_env.csv")
traits_path = file.path(home_dir, "traits.csv")
# load data
imm_rat = as.data.frame(read_delim(imm_rat_path, col_names = TRUE, delim = ",", show_col_types = FALSE))
traits$NCI_centered = traits$NCI_total - mean(traits$NCI_total)
# set your home directory
home_dir = "/Users/max/Documents/Dissertation/Study 1 - Nature Pain MRI/Data & Analyses/Upload/Final_Upload/Source_Data/Source_Data_Tables_S1_S17"
# define file paths
#define file paths
imm_rat_path = file.path(home_dir, "immediate_ratings.csv")
post_pain_path = file.path(home_dir, "post_pain_ratings.csv")
signature_path = file.path(home_dir, "signatures_allreg.csv")
roi_path = file.path(home_dir, "roi_allreg.csv")
roi_env_path = file.path(home_dir, "roi_all_env.csv")
traits_path = file.path(home_dir, "traits.csv")
# load data
imm_rat = as.data.frame(read_delim(imm_rat_path, col_names = TRUE, delim = ",", show_col_types = FALSE))
post_pain = as.data.frame(read_delim(post_pain_path, col_names = TRUE, delim = ",", show_col_types = FALSE))
signature = as.data.frame(read_delim(signature_path, col_names = TRUE, delim = ",", show_col_types = FALSE))
roi = as.data.frame(read_delim(roi_path, col_names = TRUE, delim = ",", show_col_types = FALSE))
roi_env = as.data.frame(read_delim(roi_env_path, col_names = TRUE, delim = ",", show_col_types = FALSE))
traits = as.data.frame(read_delim(traits_path, col_names = TRUE, delim = ",", show_col_types = FALSE))
traits$NCI_centered = traits$NCI_total - mean(traits$NCI_total)
# merge trait data with dependent variables of interest
rat_traits_long = merge(imm_rat, traits[, c("subject", "NCI_centered")],
by = c("subject"), all.x = TRUE)
signature_traits_long = merge(signature, traits[, c("subject", "NCI_centered")],
by = c("subject"), all.x = TRUE)
roi_traits_long = merge(roi, traits[, c("subject", "NCI_centered")],
by = c("subject"), all.x = TRUE)
model_imm_1 = lmer(rating_value ~ video*rating_content + (1+video*rating_content|subject), data = rat_traits_long)
model_imm_traits = lmer(rating_value ~ video*rating_content*NCI_centered + (1+video*rating_content|subject), data = rat_traits_long)
anova(model_imm_1, model_imm_traits)
model_sign = lmer(value_stand ~ condition*signature + (1+condition+signature|subject), data = signature_traits_long)
model_sign_traits = lmer(value_stand ~ condition*signature*NCI_centered + (1+condition+signature|subject), data = signature_traits_long)
anova(model_sign, model_sign_traits)
Thal_traits = filter(roi_traits_long, region == 'lThal' | region == 'rThal')
model_Thal = lmer(value ~ condition * region + (1+condition+region|subject), data = Thal_traits)
model_Thal_traits = lmer(value ~ condition*region*NCI_centered + (1+condition+region|subject), data = Thal_traits)
anova(model_Thal, model_Thal_traits)
S2_traits = filter(roi_traits_long, region == 'lS2' | region == 'rS2')
model_S2 = lmer(value ~ condition * region + (1+condition+region|subject), data = S2_traits)
model_S2_traits = lmer(value ~ condition*region*NCI_centered + (1+condition+region|subject), data = S2_traits)
anova(model_S2, model_S2_traits)
pINS_traits = filter(roi_traits_long, region == 'lpINS' | region == 'rpINS')
model_pINS = lmer(value ~ condition * region + (1+condition+region|subject), data = pINS_traits)
model_pINS_traits = lmer(value ~ condition*region*NCI_centered + (1+condition+region|subject), data = pINS_traits)
anova(model_pINS, model_pINS_traits)
model_sign_traits = lmer(value_stand ~ condition*signature*NCI_centered + (1+condition+signature|subject), data = signature_traits_long)
## DV = signatures
model_sign = lmer(value_stand ~ condition*signature + (1+condition+signature|subject), data = signature_traits_long)
model_sign_traits = lmer(value_stand ~ condition*signature*NCI_centered + (1+condition|subject), data = signature_traits_long)
model_sign = lmer(value_stand ~ condition*signature + (1+condition+signature|subject), data = signature_traits_long)
model_sign_traits = lmer(value_stand ~ condition*signature*NCI_centered + (1+condition|subject), data = signature_traits_long)
anova(model_sign, model_sign_traits)
model_sign = lmer(value_stand ~ condition*signature + (1+condition|subject), data = signature_traits_long)
model_sign_traits = lmer(value_stand ~ condition*signature*NCI_centered + (1+condition|subject), data = signature_traits_long)
anova(model_sign, model_sign_traits)
anova(model_imm_1)
model_sign = lmer(value_stand ~ condition*signature + (1+condition|subject), data = signature_traits_long)
anova(model_sign)
model_sign = lmer(value_stand ~ condition*signature + (1+condition|subject), data = signature_traits_long)
model_sign_traits = lmer(value_stand ~ condition*signature*NCI_centered + (1+condition|subject), data = signature_traits_long)
anova(model_sign, model_sign_traits)
