infer_ts_paired_ttest tests that two samples have the same mean, assuming paired data.

infer_ts_paired_ttest(data, x, y, confint = 0.95,
  alternative = c("both", "less", "greater", "all"))

Arguments

data

a data.frame or tibble

x

numeric; column in data

y

numeric; column in data

confint

confidence level

alternative

a character string specifying the alternative hypothesis, must be one of "both" (default), "greater", "less" or "all". You can specify just the initial letter.

Value

infer_ts_paired_ttest returns an object of class "infer_ts_paired_ttest". An object of class "infer_ts_paired_ttest" is a list containing the following components:

Obs

number of observations

b

mean, standard deviation and standard error of x, y and their difference

tstat

t statistic

p_lower

lower one-sided p-value

p_upper

upper one-sided p-value

p_two_tail

two sided p-value

corr

Correlation of x and y

corsig

p-value of correlation test

conf_int1

confidence interval for mean of x

conf_int2

confidence interval for mean of y

conf_int_diff

confidence interval for mean of difference of x and y

df

degrees of freedom

confint

confidence level

alternative

alternative hypothesis

var_names

names of x and y

xy

string used in printing results of the test

Deprecated Function

paired_ttest() has been deprecated. Instead use infer_ts_paired_ttest().

References

Sheskin, D. J. 2007. Handbook of Parametric and Nonparametric Statistical Procedures, 4th edition. : Chapman & Hall/CRC.

See also

Examples

# lower tail infer_ts_paired_ttest(hsb, read, write, alternative = 'less')
#> Paired Samples Statistics #> ---------------------------------------------------------------------------- #> Variables Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] #> ---------------------------------------------------------------------------- #> read 200 52.23 0.7249921 10.25294 50.8 53.66 #> write 200 52.775 0.6702372 9.478586 51.45 54.1 #> ---------------------------------------------------------------------------- #> diff 200 -0.545 0.6283822 8.886666 -1.78 0.69 #> ---------------------------------------------------------------------------- #> #> Paired Samples Correlations #> ------------------------------------------- #> Variables Obs Correlation Sig. #> read & write 200 0.60 0 #> ------------------------------------------- #> #> Paired Samples Test #> ------------------- #> Ho: mean(read - write) = 0 #> Ha: mean(read - write) < 0 #> #> ---------------------------------------- #> Variables t df Sig. #> ---------------------------------------- #> read - write -0.8673 199 0.193 #> ----------------------------------------
# upper tail infer_ts_paired_ttest(hsb, read, write, alternative = 'greater')
#> Paired Samples Statistics #> ---------------------------------------------------------------------------- #> Variables Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] #> ---------------------------------------------------------------------------- #> read 200 52.23 0.7249921 10.25294 50.8 53.66 #> write 200 52.775 0.6702372 9.478586 51.45 54.1 #> ---------------------------------------------------------------------------- #> diff 200 -0.545 0.6283822 8.886666 -1.78 0.69 #> ---------------------------------------------------------------------------- #> #> Paired Samples Correlations #> ------------------------------------------- #> Variables Obs Correlation Sig. #> read & write 200 0.60 0 #> ------------------------------------------- #> #> Paired Samples Test #> ------------------- #> Ho: mean(read - write) = 0 #> Ha: mean(read - write) > 0 #> #> ---------------------------------------- #> Variables t df Sig. #> ---------------------------------------- #> read - write -0.8673 199 0.807 #> ----------------------------------------
# both tails infer_ts_paired_ttest(hsb, read, write, alternative = 'both')
#> Paired Samples Statistics #> ---------------------------------------------------------------------------- #> Variables Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] #> ---------------------------------------------------------------------------- #> read 200 52.23 0.7249921 10.25294 50.8 53.66 #> write 200 52.775 0.6702372 9.478586 51.45 54.1 #> ---------------------------------------------------------------------------- #> diff 200 -0.545 0.6283822 8.886666 -1.78 0.69 #> ---------------------------------------------------------------------------- #> #> Paired Samples Correlations #> ------------------------------------------- #> Variables Obs Correlation Sig. #> read & write 200 0.60 0 #> ------------------------------------------- #> #> Paired Samples Test #> ------------------- #> Ho: mean(read - write) = 0 #> Ha: mean(read - write) ~= 0 #> #> ---------------------------------------- #> Variables t df Sig. #> ---------------------------------------- #> read - write -0.8673 199 0.387 #> ----------------------------------------
# all tails infer_ts_paired_ttest(hsb, read, write, alternative = 'all')
#> Paired Samples Statistics #> ---------------------------------------------------------------------------- #> Variables Obs Mean Std. Err. Std. Dev. [95% Conf. Interval] #> ---------------------------------------------------------------------------- #> read 200 52.23 0.7249921 10.25294 50.8 53.66 #> write 200 52.775 0.6702372 9.478586 51.45 54.1 #> ---------------------------------------------------------------------------- #> diff 200 -0.545 0.6283822 8.886666 -1.78 0.69 #> ---------------------------------------------------------------------------- #> #> Paired Samples Correlations #> ------------------------------------------- #> Variables Obs Correlation Sig. #> read & write 200 0.60 0 #> ------------------------------------------- #> #> Ho: mean(read - write) = mean(diff) = 0 #> #> Ha: mean(diff) < 0 Ha: mean(diff) ~= 0 Ha: mean(diff) > 0 #> t = -0.8673 t = -0.8673 t = -0.8673 #> P < t = 0.193 P > |t| = 0.387 P > t = 0.807