Nothing
#' Compute the Frechet functional/The objective value of the barycenter problem
#' @description This function computes the objective value of the barycenter problem for a given measure and a given dataset of measures.
#' @param bary An object representing a measure, for which the Frechet value should be computed. Should be one of the following:
#' A matrix, representing an image; A path to a file containing an image;
#' A \link[transport]{wpp-object};
#' A \link[transport]{pp-object};
#' A list containing an entry named `positions` with the support of the measure and an entry named `weights` containing the weights of the support points;
#' A list containing en entry named `positions`` specifying the support of a measure with uniform weights.
#' @param data A list of objects which should be compared to bary. Each element should be one of the following:
#' A matrix, representing an image; A path to a file containing an image;
#' A \link[transport]{wpp-object};
#' A \link[transport]{pp-object};
#' A list containing an entry named `positions` with the support of the measure and an entry named `weights` containing the weights of the support points;
#' A list containing en entry named `positions`` specifying the support of a measure with uniform weights.
#' @return A real number specifying the Frechet value of the input object for the given dataset.
#' @export
frechet_func<-function(bary,data){
type<-type_check(bary)
bary<-process_data(bary,type)
bary<-transport::wpp(bary$positions,bary$weights)
data.types<-lapply(data,type_check)
data<-mapply(process_data,data,data.types,SIMPLIFY = FALSE)
data<-mapply(transport::wpp,lapply(data,"[[",1),lapply(data,"[[",2),SIMPLIFY = FALSE)
N<-length(data)
val<-0
for (k in 1:N){
val<-val+(transport::transport(bary,data[[k]],p=2,method="networkflow",fullreturn=TRUE)$cost)
}
return(val/N)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.