R语言中，怎么提取函数计算的某些结果

Python027

R语言中，怎么提取函数计算的某些结果,第1张

如果这个函数本身返回的东西是一个list，那我们可以用$符号来提取，举例如下：

sum_and_mean = function(a,b){

sum = a+b

mean = (a+b)/2

return(list(sum = sum, mean = mean))

}

# 当我们call这个function的时候

sum_and_mean(2,4)$sum # 结果等于6

sum_and_mean(2,4)$mean # 结果等于3希望对你有帮助！

你在建立网络的时候不是用了net=newff(……）吗？这个net就是输出的结果。newff函数只是初始化一个神经网络，之后还得用train函数训练，训练好的net就是你要的网络。newff函数的格式为：net=newff(PR,[S1 S2 ...SN],{TF1 TF2...TFN},BTF,BLF,PF），函数newff建立一个可训练的前馈网络。输入参数说明：PR：Rx2的矩阵以定义R个输入向量的最小值和最大值；Si：第i层神经元个数；TFi：第i层的传递函数，默认函数为tansig函数；BTF：训练函数，默认函数为trainlm函数；BLF：权值/阀值学习函数，默认函数为learngdm函数；PF：性能函数，默认函数为mse函数。

输入了函数对象名称，可以直接看到代码的，如要获得函数对象fivenum的代码，就只需要在Console中键入函数对象名称fivenum就可以得到如下结果：

function (x, na.rm = TRUE)

{

xna <- is.na(x)

if (na.rm)

x <- x[!xna]

else if (any(xna))

return(rep.int(NA, 5))

x <- sort(x)

n <- length(x)

if (n == 0)

rep.int(NA, 5)

else {

n4 <- floor((n + 3)/2)/2

d <- c(1, n4, (n + 1)/2, n + 1 - n4, n)

0.5 * (x[floor(d)] + x[ceiling(d)])

}

}