远远地  

2020年9月11日

摘要: # test the skewness 以及峰度 library(moments) x <- rnorm(100,0,1) # 产生100均值为0, 标准差为1 的正太分布随机数 x <- rnorm(100,5,3) skewness(x) # 计算偏度 agostino.test(x) # 偏度 阅读全文
posted @ 2020-09-11 22:02 远远地 阅读(221) 评论(0) 推荐(0) 编辑
 
摘要: p <- ggplot(mtcars, aes(mpg, wt, colour = cyl)) + geom_point() p + labs(colour = "Cylinders") p + labs(x = "New x label") # The plot title appears at 阅读全文
posted @ 2020-09-11 20:10 远远地 阅读(3887) 评论(0) 推荐(0) 编辑