data(japan_neutro)
metrics <- compute_all_metrics(japan_neutro)
mse_results <- calculate_all_mse_neutrosophic(
0.01, 0.02,
metrics$mean_interval_Y[1], metrics$mean_interval_Y[2],
metrics$mean_interval_X[1], metrics$mean_interval_X[2],
metrics$cv_interval_X[1], metrics$cv_interval_X[2],
metrics$cv_interval_Y[1], metrics$cv_interval_Y[2],
metrics$correlation_results[1], metrics$correlation_results[2],
metrics$kurtosis_interval_X[1], metrics$kurtosis_interval_X[2]
)
pre_results <- calculate_pre(mse_results)
print(pre_results)
Run the code above in your browser using DataLab