Displaying 1 result from an estimated 1 matches for "kurtosis_val".
2009 Mar 17
1
Need a little help setting the upper median using "layout"...
...quot;, xaxt='n', yaxt='n')
boxplot(x, horizontal = TRUE, col = "pink", lwd=1, xaxt='n', yaxt='n')
box(col="white")
#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, sc...