Statistical Power

library(pwr)
pwr.r.test(n = 140, r = .331, sig.level = .001)
## 
##      approximate correlation power calculation (arctangh transformation) 
## 
##               n = 140
##               r = 0.331
##       sig.level = 0.001
##           power = 0.7684327
##     alternative = two.sided