> mantel.rtest(p.dist, cor.dist, nrepet=99)
Monte-Carlo test
Call: mantel.rtest(m1 = p.dist, m2 = cor.dist, nrepet = 99)

Observation: 1

Based on 99 replicates
Simulated p-value: 0.01
Alternative hypothesis: greater

     Std.Obs  Expectation     Variance
4.994451e+02 2.074923e-04 4.007229e-06