Reduced major axis regression

The R output for the test of slope is:
> #Test whether slope of Y (log epg) on X (log tec) = 1
> slope.test(log10(vetbnt$epg), log10(vetbnt$tec))
$r
[1] 0.6355416
$p
[1] 0.1250410
$test.value
[1] 1
$b
[1] 0.6632173
$ci
[,1] [,2]
[1,] 0.3788287 1.161098
#Same test from first principles
> a=log10(vetbnt$epg)log10(vetbnt$tec)
> b=log10(vetbnt$epg)+log10(vetbnt$tec)
> cor.test (a,b,method = "pearson")
Pearson's productmoment correlation
data: a and b
t = 1.8407, df = 5, pvalue = 0.1250
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
0.9391316 0.2253864
sample estimates:
cor
0.6355416

