depth2Kmodp C++ version

[doddsk]

There seems to be a problem with the C++ version of this function when applied to matrices. Works OK for vectors.
Loading C++ functions: /home/doddsk/GBS/Code/GBS-Rcpp-functions.cpp

depth2Kmodp(0:4,modp=0.7)
[1] 1.0000 0.5000 0.3500 0.2450 0.1715
depth2Kmodp(matrix(0:4),modp=0.7)
[,1]
[1,] 0.7142857
[2,] 0.5000000
[3,] 0.3500000
[4,] 0.2450000
[5,] 0.1715000

Using the R version:

depth2Kmodp(matrix(0:4),modp=0.7)
[,1]
[1,] 1.0000
[2,] 0.5000
[3,] 0.3500
[4,] 0.2450
[5,] 0.1715