Here we analyze the correlation between age and social dominance orientation:

age_x_sdo <- cor.test(analysis_data$Age, analysis_data$SocialDominance, 
                method = "pearson")
age_x_sdo

## 
##  Pearson's product-moment correlation
## 
## data:  analysis_data$Age and analysis_data$SocialDominance
## t = -0.16554, df = 84, p-value = 0.8689
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
##  -0.2290583  0.1945603
## sample estimates:
##         cor 
## -0.01805946

You’ll need the p-value and the r-value (cor) to report a correlation properly.