检测数据是否符合正态分布（R语⾔）st<-function(input.data,alpha=0.05,pic=TRUE){
if(pic==TRUE){#画图形
正则化统计
par(mfrow=c(2,1))
qqnorm(input.data,main="qq图")
qqline(input.data)
hist(input.data,frep=F,main="直⽅图和密度估计曲线")
lines(density(input.data),col="blue") #密度估计曲线
x<- c(round(min(input.data)):round(max(input.data)))
lines(x,dnorm(x,mean(input.data),sd(input.data)),col="red") #正态分布曲线
}
sol<- st(input.data)
if(sol$p.value>alpha){
print(paste("success：服从正态分布,p.value=",sol$p.value,">",alpha))
}else{
print(paste("error：不服从正态分布,p.value=",sol$p.value,"<=",alpha))
}
sol
}

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。