getMatDist <- function(Proba,Traj){
npts <- length(Proba)
resM <- myf(Proba[[1]],Traj[[1]])
for (k in 2:npts){
cat(k,"sur",npts,"\n")
Mtmp <- myf(Proba[[k]],Traj[[k]])
resM <- pmin(resM,Mtmp)
}
return(resM)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.