test.cor(.484, 100, 0, .2)
# Should return:
# Estimate z p
# 0.484 3.205432 0.001348601
test.cor(.372, 100, 0, 0)
# Should return:
# Estimate t df p
# 0.372 3.967337 98 0.000138436
Run the code above in your browser using DataLab