mean.population = 1000
sd.population = 100
sample.size = 30

sample1 = rnorm(sample.size,mean.population,sd.population)
sample2 = rnorm(sample.size,mean.population,sd.population)

results = t.test(sample1,sample2)

print(results)