# this is just a quick look at paired data
source("../gnrnd4.R")
gnrnd4( key1=1434122510, key2=390004700251 )
L1
L2
# We want to look at Later (L2) minus Earlier (L1)
L3 <- L2 - L1
L3
#
# to find a 95% confidence interval for the mean
# of the difference, L2 - L1
source("../ci_unknown.R")
ci_unknown( sd(L3), length(L3), mean(L3), 0.95)
#
# To test the null hypothesis that the mean
# difference in the paired values is 0 against
# the alternative hypothesis that the Later
# values are greater than the Earlier values,
# that is, that the mean of L3 > 0, at the
# 0.02 level of significance.
#
source("../hypo_unknown.R")
hypoth_test_unknown( 0, 5, 0.02, length(L3),
mean(L3), sd(L3) )