Hi! This is my first forum post on Cemetech 
.I've been working on this sample skewness & kurtosis formula program, but after a certain point during execution, the calculator returns a syntax error and brings me to line 2. Does anybody have any advice on how to fix this? Thanks!
Code:
.I've been working on this sample skewness & kurtosis formula program, but after a certain point during execution, the calculator returns a syntax error and brings me to line 2. Does anybody have any advice on how to fix this? Thanks!
Code:
ClrHome
Output(6,11,"SKEWNESS")
Output(6,9,"& KURTOSIS")
Output(10,9,"By StatMan")
Pause
ClrHome
Disp "Input your list of data","below."
Disp ""
Disp "To input your list,","press [2nd][stat] to find it","and press [enter]."
Disp ""
Prompt ⌊XKURT
ClrHome
Disp "Note: Both analyses use the"
Disp "formulae for unweighted"
Disp "sample and all formulae are"
Disp "from SPSS."
dim(⌊XKURT)→N
((sum((⌊XKURT-mean(⌊XKURT))^2))/(N-1))→V
√(V)→S
Pause
ClrHome
Menu("Samp. Skewness & Kurtosis","Wait, What?",1,"Sample Skewness",2,"Sample Kurtosis",3,"Quit",4)
Lbl 1
ClrHome
Stop
Lbl 2
Disp "Note: Skewness inter-"
Disp "pretation is based on the"
Disp "rule of thumb suggested in"
Disp "M.G. Bulmer's Principle of"
Disp "Statistics, written in"
Disp "1979."
N*(sum((⌊XKURT-mean(⌊XKURT))^3))→T
(N-1)*(N-2)*(S^3)→B
T/B→S
6*N*(N-1)→T
(N-2)*(N+1)*(N+3)→B
√(T/B)→E
If S>1 or S<-1:Then
ClrHome
Disp "Skewness (g1)="
Disp S
Disp "Standard Error="
Disp E
Disp ""
Disp "The distribution is"
Disp "highly skewed."
Else:If -1≤S≤-0.5 or 0.5≤S≤1:Then
ClrHome
Disp "Skewness (g1)="
Disp S
Disp "Standard Error="
Disp E
Disp ""
Disp "The distribution is"
Disp "moderately skewed."
Else:If -0.5<S<0.5:Then
Disp "Skewness (g1)="
Disp S
Disp "Standard Error="
Disp E
Disp ""
Disp "The distribution is"
Disp "approximately symmetric."
Else
Stop
Lbl 3
Disp "Note: SPSS only calculates"
Disp "excess kurtosis."
N*(N+1)*(sum((⌊XKURT-mean(⌊XKURT))^4))→L
3*(sum((⌊XKURT-mean(⌊XKURT))^2))*(sum((⌊XKURT-mean(⌊XKURT))^2))*(N-1)→R
L-R→T
(N-1)*(N-2)*(N-3)*(S^4)→B
T/B→K
6*N*(N-1)→T
(N-2)*(N+1)*(N+3)→B
√(T/B)→E
If K>0:Then
ClrHome
Disp "Skewness (g1)="
Disp K
Disp "Standard Error="
Disp E
Disp ""
Disp "The distribution is"
Disp "leptokurtic."
Else:If K<0:Then
ClrHome
Disp "Skewness (g1)="
Disp K
Disp "Standard Error="
Disp E
Disp ""
Disp "The distribution is"
Disp "platykurtic."
Else
ClrHome
Disp "Skewness (g1)="
Disp K
Disp "Standard Error="
Disp E
Disp ""
Disp "The distribution is"
Disp "mesokurtic."
Stop
