task4 <- function(sampleSize, difference, variance, alpha) {
    firstSet <- rnorm(sampleSize,difference, variance)
    secondSet<- rnorm(sampleSize,difference, variance)
tTestResult <- t.test(firstSet,secondSet))
}
task4(4,3,0.25)