Replaced nonparametric copula calculation with function from np package