Displaying 1 result from an estimated 1 matches for "sk_skew".
Did you mean:
s_skew
2009 Mar 17
1
Need a little help setting the upper median using "layout"...
...t;)
#par(op)
# 3rd Plot
#par(mar=c(1,1,1,1), oma=c(0,0,0,0)+.8)
qqnorm(x, , main="")
qqline(x, col="red", lwd=3)
kurtosis_val <-(sum((x-mean(x))^4 ))/(var(x)*var(x))/length(x)-3
skewness<-function(x)
{
m_skew=mean(x)
me_skew=median(x)
s_skew=sqrt(var(x))
sk_skew=(m_skew-me_skew)/s_skew
return(sk_skew)
}
title_text<-c("Title Text", "\nMean = ", format(mean(x), digits=4, scientific=F), " Standard Deviation = ", format(sd(x), digits=4, scientific=F),"\n Skewness = ", format(skewness(x), digits=4, scientific=F),...