powered by
Evaluation.TVD(Data.pairs, m, Estimate, pairwise.prob = NA, prior = 0, nonparametric = FALSE, ...)
data(Data.Test) Data.Test.pairs <- Breaking(Data.Test, "full") m <- 5 Estimate <- Estimation.PL.GMM(Data.Test.pairs, m) Evaluation.TVD(Data.Test.pairs, m, Estimate, PL.Pairwise.Prob)
Run the code above in your browser using DataLab