关于功能和生成输出和输入的硬件问题

Question

我已经弄清楚了 A 部分，但我在 B 部分遇到了麻烦，因为大多数人都会使用 cat，但我对它并不熟悉，因为我的教授简要介绍了它。

这是我目前所拥有的

SS<-function(X){n<-length(Y)

sample_var<-sum((Y-mean(Y))*(Y-mean(Y)))/(n-1)

return(sample_var)}

#b

y<-rnorm(100,mean=0,sd=1)#Normal[0,1]

print(y)

??

Answer 1

SS<-function(X){n<-length(X)

sample_var<-sum((X-mean(X))*(X-mean(X)))/(n-1)

return(sample_var)}

#b

Y<-rnorm(100,mean=0,sd=1)#Normal[0,1]

print(SS(Y))

#or
s=SS(Y)
print(s)

#c
E=exp(Y)
print(SS(E))

#c

输出：

0.9667681

3.141597