```r
cor.test(d$Lshell,d$BTVolume,method="spearman")
```

```
## 
## 	Spearman's rank correlation rho
## 
## data:  d$Lshell and d$BTVolume
## S = 26143, p-value < 2.2e-16
## alternative hypothesis: true rho is not equal to 0
## sample estimates:
##       rho 
## 0.8912809
```