datats<-function(x)sapply(x,mystats)
为什么两个函数被写在一起了。。。。赋给datats