library(ppcor)

pcor.test(Wk08a$Gender,Wk08a$Cancer,Wk08a$Height) 

##    estimate p.value statistic     n gp  Method
## 1 0.2745378       0  46.71526 26775  1 pearson

spcor.test(Wk08a$Gender,Wk08a$Cancer,Wk08a$Height) 

##   estimate       p.value statistic     n gp  Method
## 1  0.22681 2.017145e-309  38.10402 26775  1 pearson