options(scipen=999)
task4 <- function(sampleSize, difference, variance, alpha) {
    firstSet <- rnorm(sampleSize,difference, variance)
difference <- 1.25 + difference
    secondSet<- rnorm(sampleSize,difference, variance)
pVal <- t.test(firstSet, secondSet)$p.value
if(pVal > 0.05)
{
print("Means are same")
}else{
print ("Means are smaller")
}
}
task4(10, 2, 0.25)