R/print.CV_Result.R

In thongphamthe/PAFit: Generative Mechanism Estimation in Temporal Complex Networks

print.CV_Result <- function(x,...){
    cat("\nContaining the cross validation result. \n");
    if (!is.null(x$s_optimal))
        cat(paste0("Selected r parameter is:", x$r_optimal, "\n"));
    if (!is.null(x$s_optimal))
        cat(paste0("Selected s parameter is:", x$s_optimal, "\n"));
}