有没有办法使用R打印对象的代码而不是其值？

Question

例如，如果我有以下对象：

fz <- (1 / sqrt(2 * pi)) * exp(-(Z^2) / 2)

如果我已经分配了Z，当我输入＆＃34; fz＆＃34;

时，我会得到一个值。

> Z <- 0.03057164
> fz
[1] 0.3987559

但是，我想快速打印fz的底层代码，以便输入的代码导致：

(1 / sqrt(2 * pi)) * exp(-(Z^2) / 2)

有快速的方法吗？

Answer 1

正如@mtoto建议的那样，

FT1D=dftmtx(N);
FT2D=kron(FT1D,FT1D);

然后输入fz <- function(Z) (1 / sqrt(2 * pi)) * exp(-(Z^2) / 2) ，您将获得

fz