OUTPUT OF THE TESTS OF THE PERMUTATION TEST PROCEDURE

> source("perm.r")


> test.norm()

Permutation test p-value: 0.892 


Call:
lm(formula = y ~ x)

Residuals:
     Min       1Q   Median       3Q      Max 
-2.49203 -0.43068 -0.09145  0.21283  2.59969 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)
(Intercept)  0.01910    0.24786   0.077    0.939
x            0.03116    0.19783   0.157    0.877

Residual standard error: 1.106 on 18 degrees of freedom
Multiple R-Squared: 0.001376,   Adjusted R-squared: -0.0541 
F-statistic: 0.02481 on 1 and 18 DF,  p-value: 0.8766 


> test.extreme()

Permutation test p-value: 0.132 


Call:
lm(formula = y ~ x)

Residuals:
      1       2       3       4       5 
-0.3774 -0.5107  1.3693  0.2561 -0.7373 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)   
(Intercept)  -0.5493     0.5902  -0.931  0.42067   
x             0.9333     0.1380   6.761  0.00661 **
---
Signif. codes:  0 `***' 0.001 `**' 0.01 `*' 0.05 `.' 0.1 ` ' 1 

Residual standard error: 0.9811 on 3 degrees of freedom
Multiple R-Squared: 0.9384,     Adjusted R-squared: 0.9179 
F-statistic: 45.72 on 1 and 3 DF,  p-value: 0.00661