function rmse = RMSE(predicciones, observaciones)
    % Comprueba si los vectores tienen la misma longitud
    if length(predicciones) ~= length(observaciones)
        error('Los vectores de predicciones y observaciones deben tener la misma longitud.');
    end
    
    % Calcula los errores cuadrados
    errores_cuadrados = (predicciones - observaciones).^2;
    
    % Calcula el RMSE
    rmse = sqrt(mean(errores_cuadrados));
end
