Age   Low-RAD51-AS1  High-RAD51-AS1 P-value
 <50    25 (38.5)      17 (26.6)       0.149
 ≥50    40 (61.5)      47 (73.4)

data <- data.frame(x= c(25, 40), y=c(17, 47))
chisq.test(data, correct = T)

    Pearson's Chi-squared test with Yates' continuity
    correction

data:  data
X-squared = 1.5728, df = 1, p-value = 0.2098

chisq.test(data, correct = F)

    Pearson's Chi-squared test

data:  data
X-squared = 2.0794, df = 1, p-value = 0.1493