## Most commonly used statistical tests and implementation in R

This chapter explains the purpose of some of the most commonly used statistical tests and how to implement them in R

It is a parametric test used to test if the mean of a sample from a normal distribution could reasonably be a specific value.

set.seed(100)x One Sample t-test#=> #=> data: x#=> t = 0.70372, df = 49, p-value = 0.4849#=> alternative hypothesis: true mean is not equal to 10#=> 95 percent confidence interval:#=> 9.924374 10.157135#=> sample estimates:#=> mean of x #=> 10.04075In above case, the p-Value is not less than significance level of 0.05, therefore the null hypothesis that the mean=10 cannot be rejected. Also note that the 95% confidence interval range includes the value 10 within its range. So, it is ok to say the mean of ‘x’ is 10, especially since ‘x’ is assumed to be normally distributed. In case, a normal distribution is not assumed, use wilcoxon signed rank test shown in next section.

Note: Use conf.level argument to adjust the confidence level.

To test the mean of a sample when normal distribution is not assumed. Wilcoxon signed rank test can be an alternative to t-Test, especially when the data sample is not assumed to follow a normal distribution. It is a non-parametric method used to test if an estimate is different from its true value.

numeric_vector Wilcoxon signed rank test with continuity correction#>#> data: numeric_vector#> V = 30, p-value = 0.1056#> alternative hypothesis: true location is not equal to 20#> 90 percent confidence interval:#> 19.00006 25.99999#> sample estimates:#> (pseudo)median #> 23.00002If p-Value < 0.05, reject the null hypothesis and accept the alternate mentioned in your R code’s output. Type example(wilcox.test) in R console for more illustration.

Both t.Test and Wilcoxon rank test can be used to compare the mean of 2 samples. The difference is t-Test assumes the samples being tests is drawn from a normal distribution, while, Wilcoxon’s rank sum test does not.

Pass the two numeric vector samples into the t.test() when sample is distributed ‘normal’y and wilcox.test() when it isn’t assumed to follow a normal distribution.

x <- c(0.80, 0.83, 1.89, 1.04, 1.45, 1.38, 1.91, 1.64, 0.73, 1.46)y Wilcoxon rank sum test#=> #=> data: x and y#=> W = 35, p-value = 0.1272#=> alternative hypothesis: true location shift is greater than 0With a p-Value of 0.1262, we cannot reject the null hypothesis that both x and y have same means.

t.test(1:10, y = c(7:20)) # P = .00001855#=> Welch Two Sample t-test#=> #=> data: 1:10 and c(7:20)#=> t = -5.4349, df = 21.982, p-value = 1.855e-05#=> alternative hypothesis: true difference in means is not equal to 0#=> 95 percent confidence interval:#=> -11.052802 -4.947198#=> sample estimates:#=> mean of x mean of y #=> 5.5 13.5With p-Value < 0.05, we can safely reject the null hypothesis that there is no difference in mean.

# Use paired = TRUE for 1-to-1 comparison of observations.t.test(x, y, paired = TRUE) # when observations are paired, use ‘paired’ argument.wilcox.test(x, y, paired = TRUE) # both x and y are assumed to have similar shapesConventionally, If the p-Value is less than significance level (ideally 0.05), reject the null hypothesis that both means are the are equal.

To test if a sample follows a normal distribution.

shapiro.test(numericVector) # Does myVec follow a normal disbn?Lets see how to do the test on a sample from a normal distribution.

# Example: Test a normal distributionset.seed(100)normaly_disb Shapiro-Wilk normality test#=>#=> data: normaly_disb#=> W = 0.98836, p-value = 0.535The null hypothesis here is that the sample being tested is normally distributed. Since the p Value is not less that the significane level of 0.05, we don’t reject the null hypothesis. Therefore, the tested sample is confirmed to follow a normal distribution (thou, we already know that!).

# Example: Test a uniform distributionset.seed(100)not_normaly_disb Shapiro-Wilk normality test#=> data: not_normaly_disb#=> W = 0.96509, p-value = 0.009436If p-Value is less than the significance level of 0.05, the null-hypothesis that it is normally distributed can be rejected, which is the case here.

Kolmogorov-Smirnov test is used to check whether 2 samples follow the same distribution.

ks.test(x, y) # x and y are two numeric vector# From different distributionsx <- rnorm(50)y Two-sample Kolmogorov-Smirnov test#=> #=> data: x and y#=> D = 0.58, p-value = 4.048e-08#=> alternative hypothesis: two-sided# Both from normal distributionx <- rnorm(50)y Two-sample Kolmogorov-Smirnov test#=> #=> data: x and y#=> D = 0.18, p-value = .3959#=> alternative hypothesis: two-sidedIf p-Value < 0.05 (significance level), we reject the null hypothesis that they are drawn from same distribution. In other words, p < 0.05 implies x and y from different distributions

Fisher’s F test can be used to check if two samples have same variance.

var.test(x, y) # Do x and y have the same variance?Alternatively fligner.test() and bartlett.test() can be used for the same purpose.

Chi-squared test in R can be used to test if two categorical variables are dependent, by means of a contingency table.

Example use case: You may want to figure out if big budget films become box-office hits. We got 2 categorical variables (Budget of film, Success Status) each with 2 factors (Big/Low budget and Hit/Flop), which forms a 2 x 2 matrix.

chisq.test(table(categorical_X, categorical_Y), correct = FALSE) # Yates continuity correction not applied#orsummary(table(categorical_X, categorical_Y)) # performs a chi-squared test.# Sample results#=> Pearson’s Chi-squared test#=> data: M#=> X-squared = 30.0701, df = 2, p-value = 2.954e-07There are two ways to tell if they are independent:

**By looking at the p-Value**: If the p-Value is less that 0.05, we fail to reject the null hypothesis that the x and y are independent. So for the example output above, (p-Value=2.954e-07), we reject the null hypothesis and conclude that x and y are not independent.

**From Chi.sq value**: For 2 x 2 contingency tables with 2 degrees of freedom (d.o.f), if the Chi-Squared calculated is greater than 3.841 (critical value), we reject the null hypothesis that the variables are independent. To find the critical value of larger d.o.f contingency tables, use qchisq(0.95, n-1), where n is the number of variables.

To test the linear relationship of two continuous variables

The cor.test() function computes the correlation between two continuous variables and test if the y is dependent on the x. The null hypothesis is that the true correlation between x and y is zero.

cor.test(x, y) # where x and y are numeric vectors.cor.test(cars$speed, cars$dist)#=> Pearson’s product-moment correlation#=> #=> data: cars$speed and cars$dist#=> t = 9.464, df = 48, p-value = 1.49e-12#=> alternative hypothesis: true correlation is not equal to 0#=> 95 percent confidence interval:#=> 0.6816422 0.8862036#=> sample estimates:#=> cor #=> 0.8068949If the p Value is less than 0.05, we reject the null hypothesis that the true correlation is zero (i.e. they are independent). So in this case, we reject the null hypothesis and conclude that dist is dependent on speed.

fisher.test(contingencyMatrix, alternative = “greater”) # Fisher’s exact test to test independence of rows and columns in contingency tablefriedman.test() # Friedman’s rank sum non-parametric testThere are more useful tests available in various other packages.

The package lawstat has a good collection. The outliers package has a number of test for testing for presence of outliers.

View the original article here

## Reply