data("EuStockMarkets")
hvt.results <- trainHVT(EuStockMarkets, n_cells = 60, depth = 1, quant.err = 0.1,
distance_metric = "L1_Norm", error_metric = "max",
normalize = TRUE, quant_method="kmeans", diagnose = TRUE,
hvt_validation = TRUE)
plotModelDiagnostics(hvt.results)
Run the code above in your browser using DataLab