Commit f8fe96f7 authored by Corson N. Areshenkoff's avatar Corson N. Areshenkoff

Add expmap default

parent 48a51446
......@@ -7,7 +7,7 @@
#' @param p The point to whose tangent space x belongs
#' @return A symmetric, positive-definite matrix.
spd.expmap <- function(x, p){
spd.expmap <- function(x, p = NULL){
if (!'s.mat' %in% input.type(x)){
stop('x must be a positive definite matrix')
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment