斜率与R值无关
输出P值为0.0122显示明显正相关
计算直线：
lm（纵坐标，横坐标，data=数据框）
图加直线：
abline(直线数据，col=”颜色“，lwd=数值)
lwd为线的宽度
R语言中一组数据服从威布尔分布。首先可以利用fitdistr函数求得weibull分布的形状参数和尺寸参数，假设数据为x:library(MASS) #fitdistr需要利用MASS包fitdistr(x, densfun = "weibull",lower=0)得到形状参数shape与尺度参数scale
然后利用ks.test进行检验：ks.test(jitter(x),"pweibull",shape,scale)
上边的jitter用来做小扰动，因为如果x中有重复数据的话ks.test会报错，如果x中没有重复数据则不需要jitter。shape是得到的形状参数，scale是得到的尺度参数。
ks.test得到两个结果，一个是D,越小越好，一个是p-value，这个值要大于0.05
