Oral_Stats_Test.md

P-Value Test Per BodySite (Ultralow against the world!)

#reading from table file

oral

generating variables per Preservation Method:

oral_ultralow = parse_vector(oral, 1)
oral_nitrogen = parse_vector(oral, 2)
oral_Phen_CL = parse_vector(oral, 3)
oral_Fresh = parse_vector(oral, 4)

Normality Test with Shapiro-Wilk Test :

## 
## 	Shapiro-Wilk normality test
## 
## data:  oral_ultralow
## W = 0.8334, p-value = 0.1475

## 
## 	Shapiro-Wilk normality test
## 
## data:  oral_nitrogen
## W = 0.9283, p-value = 0.4824

## 
## 	Shapiro-Wilk normality test
## 
## data:  oral_Phen_CL
## W = 0.9454, p-value = 0.704

## 
## 	Shapiro-Wilk normality test
## 
## data:  oral_Fresh
## W = 0.9538, p-value = 0.764

Testing difference significance using Kolmogorov-Smirnov & Wilcoxon Test :

ks.test(oral_ultralow, oral_nitrogen)

## 
## 	Two-sample Kolmogorov-Smirnov test
## 
## data:  oral_ultralow and oral_nitrogen
## D = 0.4, p-value = 0.8571
## alternative hypothesis: two-sided

wilcox.test(oral_ultralow, oral_nitrogen)

## 
## 	Wilcoxon rank sum test
## 
## data:  oral_ultralow and oral_nitrogen
## W = 10, p-value = 0.5714
## alternative hypothesis: true location shift is not equal to 0

wilcox.test(oral_ultralow, oral_nitrogen, paired = T)

## Error: 'x' and 'y' must have the same length

ks.test(oral_ultralow, oral_Phen_CL)

## 
## 	Two-sample Kolmogorov-Smirnov test
## 
## data:  oral_ultralow and oral_Phen_CL
## D = 0.6, p-value = 0.3571
## alternative hypothesis: two-sided

wilcox.test(oral_ultralow, oral_Phen_CL)

## 
## 	Wilcoxon rank sum test
## 
## data:  oral_ultralow and oral_Phen_CL
## W = 21, p-value = 0.09524
## alternative hypothesis: true location shift is not equal to 0

wilcox.test(oral_ultralow, oral_Phen_CL, paired = T)

## 
## 	Wilcoxon signed rank test
## 
## data:  oral_ultralow and oral_Phen_CL
## V = 15, p-value = 0.0625
## alternative hypothesis: true location shift is not equal to 0

ks.test(oral_ultralow, oral_Fresh)

## 
## 	Two-sample Kolmogorov-Smirnov test
## 
## data:  oral_ultralow and oral_Fresh
## D = 0.4, p-value = 0.873
## alternative hypothesis: two-sided

wilcox.test(oral_ultralow, oral_Fresh)

## 
## 	Wilcoxon rank sum test
## 
## data:  oral_ultralow and oral_Fresh
## W = 13, p-value = 1
## alternative hypothesis: true location shift is not equal to 0

wilcox.test(oral_ultralow, oral_Fresh, paired = T)

## 
## 	Wilcoxon signed rank test
## 
## data:  oral_ultralow and oral_Fresh
## V = 10, p-value = 0.625
## alternative hypothesis: true location shift is not equal to 0