diff --git a/R/kldcauchy.R b/R/kldcauchy.R
index b7ed850ab90a99a8d583f4518d8fe7e0c9fdb108..b2324df7855f56596a6a8ecade34717cc68394a6 100644
--- a/R/kldcauchy.R
+++ b/R/kldcauchy.R
@@ -159,7 +159,7 @@ kldcauchy <- function(Sigma1, Sigma2, eps = 1e-06) {
         }
       }
       
-      Msum <- apply(M, 1, sum)
+      Msum <- rowSums(M)
       
       d <- 0
       for (i in 1:length(Msum)) {
@@ -213,7 +213,7 @@ kldcauchy <- function(Sigma1, Sigma2, eps = 1e-06) {
           }
         }
         
-        Msum <- apply(M, 1, sum)
+        Msum <- rowSums(M)
 
         d <- 0
         for (i in 1:length(Msum)) {
@@ -409,7 +409,7 @@ kldcauchy <- function(Sigma1, Sigma2, eps = 1e-06) {
         }
       }
       
-      Msum <- apply(M, 1, sum)
+      Msum <- rowSums(M)
       
       d <- 0
       for (i in 1:length(Msum)) {
@@ -464,7 +464,7 @@ kldcauchy <- function(Sigma1, Sigma2, eps = 1e-06) {
           }
         }
         
-        Msum <- apply(M, 1, sum)
+        Msum <- rowSums(M)
         
         d <- 0
         for (i in 1:length(Msum)) {