testlist <- list()
result <- do.call(mousetrap:::distMat3d,testlist)
str(result)