r - R 中的函数 : How to Return Mean, 中值，同一函数内的标准差

Question

如何在 R 中的同一函数内返回均值、中值和标准差？我所能返回的只是计算标准偏差的函数的最后一部分。我在想，通过将 summarystat(Tail_wags) 分配给 b，当我返回 'b' 时，我将拥有所有三个值。在 'b' 之后在函数之外添加了我需要的三个值的结果，以查看应该是什么值。

Dog_biscuits <- c(0,1,2,3,4,5,6,7,8,9,10) 
Tail_wags <- c(0,0,1,3,8,13,14,12,15,16,14)
dog_wags<-cbind(Dog_biscuits,Tail_wags)
dog_wags

summarystat<- function(x) {
  z1 <- mean(x)
  z2<-median(x)
  z3<-sd(x)
}
b<-summarystat(Tail_wags)
b

b
[1] 6.497552
> mean(Tail_wags)
[1] 8.727273
> median(Tail_wags)
[1] 12
> sd(Tail_wags)
[1] 6.497552

Answer 1

一个函数只能返回一个对象。实现你想要的技巧是返回一个列表:

summarystat<- function(x) {
  z1 <- mean(x)
  z2 <- median(x)
  z3 <- sd(x)
  return(list(mean=z1, median=z2, sd=z3))
}