ttests & confidence limits
> # Uneq var ttest of diff between means
> p*2 # 2tailed Pvalue (method 1)
[1] 0.07533183
> t # observed tvalue
[1] 2.306873
> # corrected critical value (method 2)
> (qt(0.975,n11)*v1/n1+qt(0.975,n21)*v2/n2)/(v1/n1+v2/n2)
[1] 2.746209
>
> d # observed difference between means
[1] 35.27273
> d+qt(0.05/2,df)*se # lower 95% limit
[1] 5.462216
> dqt(0.05/2,df)*se # upper 95% limit
[1] 76.00767

 
