
>  summary(approx1)

Call:
lm(formula = thresholds$st.mat - 0.45 ~ -1 + log((1 - Sigma_UO_grid^2)))

Residuals:
      Min        1Q    Median        3Q       Max 
-0.023653 -0.018890 -0.008154  0.001864  0.016982 

Coefficients:
                             Estimate Std. Error t value Pr(>|t|)    
log((1 - Sigma_UO_grid^2)) -0.2399318  0.0008025    -299   <2e-16 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.01499 on 59 degrees of freedom
Multiple R-squared:  0.9993,	Adjusted R-squared:  0.9993 
F-statistic: 8.939e+04 on 1 and 59 DF,  p-value: < 2.2e-16


>  c(min(Sigma_UO_grid^2), max(Sigma_UO_grid^2))
[1] 0.002495839 0.990133963

>  sink()
