Closed dariushghasemi closed 1 year ago
# Regular TSH levels
lm(eGFRw.log.Res ~ SNP * TSH + Sex + Age + PC1 + PC2 + PC3 + PC4 + PC5 + PC6 + PC7 + PC8 + PC9 + PC10)
We modified our exclusion criteria in the way that we omitted the observations with:
After excluding these individuals, exactly 9,730 people remined out of 10,146 for SNP-TSH interaction analysis. Here is the script to do the manipulations:
vcfReg_TSHmod <-
vcfReg %>%
mutate(Thyroid_DrugName = na_if(Thyroid_DrugName, "")) %>%
filter(
!if_all(c(Thyroid_DrugName, TSH), is.na), # Removed are: 4 with NAs
kidneyCancer != 1 | is.na(kidneyCancer), # Removed are: 1 with Kidney cancer
Goiter != 1 | is.na(Goiter), # Removed are: 277 with Goitre
Operation_thyroid_gland != 1 | is.na(Operation_thyroid_gland), # Removed are: 312 with operation on thyroid gland
) %>%
mutate(TSH_cat = replace(TSH_cat, Thyroid_DrugName == "Iodine therapy", "HyperT"),
TSH_cat = replace(TSH_cat, Thyroid_DrugName == "Levothyroxine sodium", "HypoT"),
TSH_cat = replace(TSH_cat, Thyroid_DrugName == "Propylthiouracil", "HyperT"),
TSH_cat = replace(TSH_cat, Thyroid_DrugName == "Thiamazole", "HyperT"),
#Changing the reference level of TSH_cat to TSH_cat = "2" or "NormT"
TSH_cat = relevel(as.factor(TSH_cat), ref = 2))
Thus, the interaction models were executed as follows:
# Interaction of SNP-TSH
lm(log(eGFR) ~ SNP * TSH + PC1 + ... + PC10)
# Interaction of SNP-thyroid_disease
lm(log(eGFR) ~ SNP * TSH_cat + PC1 + ... + PC10)
At the end, we found there was no significant interaction between kidney variants neither TSH nor thyroid disease at 0.05/11 level (10-Feb-2023).
# Interaction of SNP-TSH
lm(eGFRw.log ~ SNP * TSH + PC1 + ... + PC10)
# Interaction of SNP-thyroid_disease
lm(eGFRw.log ~ SNP * TSH_cat + PC1 + ... + PC10)
Here we tested the potential for the interaction between the replicated Kidney-associated variants and Thyroid function. To do so, we investigated by including the interaction term between the variants in the linear regression in two strategies:
lm(eGFRw.log.Res ~ SNP * TSH + PC1 + PC2 + PC3 + PC4 + PC5 + PC6 + PC7 + PC8 + PC9 + PC10)
lm(eGFRw.log.Res ~ SNP * TSH_cat + PC1 + PC2 + PC3 + PC4 + PC5 + PC6 + PC7 + PC8 + PC9 + PC10)
Note: To account for the samples relatedness and population stratification we added the 10 first principal components to the model.