#Load data
example<- read.table(url("https://jackrrivers.com/wp-content/uploads/2018/03/Example.txt"), header=T)

#Welch corrected
ttest<-t.test(Dependent~Factor1, data=example)
ttest

#non corrected
noncorrect.ttest<-t.test(Data~Group, data=example, var.equal=T)
noncorrect.ttest

#Easy way to check the assumptions of equal variance and normality
par(mfrow=c(2,2))
plot(aov(Dependent~Factor1, data=example))