is.transport.plan {approxOT}

Check if function is a transport.plan

Description

Check if function is a transport.plan

Usage

is.transport.plan(tplan)

Arguments

tplan

An object of class 'transport.plan'. See output of (transport_plan)[transport_plan]

Value

Logical

Examples

set.seed(203987)
n <- 5
d <- 2
x <- matrix(rnorm(d*n), nrow=d, ncol=n)
y <- matrix(rnorm(d*n), nrow=d, ncol=n)
#get hilbert sort orders for x in backwards way
trans_plan <- transport_plan(X=x, Y=x, ground_p = 2, p = 2, 
                         observation.orientation =  "colwise", 
                         method = "hilbert")
print(is.transport.plan(trans_plan))