Descriptives

> ###  Frequency Distribution
> 
> FrequencyTable <- table(Outcome)
> FrequencyTable
Outcome
0 3 4 5 7 9 
2 1 2 1 1 1 
> prop.table(FrequencyTable)
Outcome
    0     3     4     5     7     9 
0.250 0.125 0.250 0.125 0.125 0.125 
> 
> ### Descriptive Statistics
> 
> mean(Outcome)
[1] 4
> var(Outcome)
[1] 9.714286
> sd(Outcome)
[1] 3.116775