# Pearson Correlation (Parametric Test)

correlation_1 <- cor(fcr2$Weight, 
                     fcr2$FCR, method = "spearman")
print(correlation_1)

#Spearman Correlation (non-parametric)

correlation_2 <- cor(fcr2$Weight, 
                     fcr2$FCR, method = "spearman")
print(correlation_2)