search for: sk_skew

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),...