%% testing t_one_mean
% test 1 = two-tail
clear
clc
format compact

mu = 90;
alpha = 0.05;
xbar = 93;
sd = 5;
n = 10;
[Decision,tval,pval,CL_lower,CL_upper] = t_one_mean(mu,alpha,xbar,sd,n,'T');
[Decision,tval,pval,CL_lower,CL_upper] = t_one_mean(mu,alpha,xbar,sd,n,'L');
[Decision,tval,pval,CL_lower,CL_upper] = t_one_mean(mu,alpha,xbar,sd,n,'R');