# First compute metrics from data
data(japan_neutro)
metrics <- compute_all_metrics(japan_neutro)
# Define population parameters (non-interactive example)
inputs <- list(theta_L = 0.01, theta_U = 0.02)
# Calculate all MSE types
mse_results <- calculate_all_mse_neutrosophic(
inputs$theta_L, inputs$theta_U,
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]
)
# Print results
print(mse_results)
Run the code above in your browser using DataLab