如何显示mathematica拟合的表达式和R值

在Mathematica中进行数据拟合时，可以使用`LinearModelFit`或`NonlinearModelFit`函数来获得拟合的模型。通过使用`Normal`方法，可以获取拟合的系数和常数项，通过`RSquared`方法，可以获取拟合的R值。以下是一个例子：

假设我们有一组数据如下：

data = {{1, 2.1}, {2, 3.9}, {3, 6.2}, {4, 7.8}, {5, 10.1}};

我们使用`NonlinearModelFit`函数来拟合一个二次函数模型：

fit = NonlinearModelFit[data, a*x^2 + b*x + c, {a, b, c}, x]

我们可以使用`Normal`方法来获取拟合的表达式：

fit["BestFit"]

输出结果为：

1.98 + 1.16 x - 0.14 x^2

我们可以使用`RSquared`方法来获取拟合的R值：

fit["RSquared"]

输出结果为：

0.998913

注意，上述结果可能因为数据不同而有所不同。