【输血】食饵越输血讨论稿101-200，12/25更新至200

xiaohuipu521 · 发表于 2013-12-30 09:41:38

谢谢啦谢谢

wenyingcai · 发表于 2013-12-30 09:51:15

xiexiexiexiexie~~~

witek · 发表于 2013-12-30 09:57:05

回帖支持

洁洁洁 · 发表于 2013-12-30 10:30:47

整理君辛苦~~~

linping0819 · 发表于 2013-12-30 11:20:47

顶～～～～～～～～～～～～～～～～～～～～

哔哔哔哔 · 发表于 2013-12-30 11:32:18

感谢楼主

Rickyzy · 发表于 2013-12-30 12:00:05

谢谢分享！

星河 · 发表于 2013-12-30 12:01:11

mystats <- function(x, na.omit=FALSE){
            if (na.omit)
                  x <- x[!is.na(x)]
            m <- mean(x)
            n <- length(x)
            s <- sd(x)
            skew <- sum((x-m)^3/s^3)/n
            kurt <- sum((x-m)^4/s^4)/n - 3
            return(c(n=n, mean=m, stdev=s, skew=skew, kurtosis=kurt))

myharvard · 发表于 2013-12-30 12:05:30

谢谢分享

Gefense · 发表于 2013-12-30 13:35:24

thanks a lot

【输血】食饵越输血讨论稿101-200，12/25更新至200

所属分类: GMAT考试

正在浏览此版块的会员 ()