search for: kurtosis_v

Displaying 1 result from an estimated 1 matches for "kurtosis_v".

Did you mean: kurtosis
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,...