# Vedi
source("http://macosa.dima.unige.it/r.R")
BF=4; HF=3
Plane(0,80, 1.9,2.15)
A=c(5,17,25,40,53,67); eA=c(2,2,2,4,4,6)
T=c(1.932,1.94,1.96,2.01,2.04,2.12); eT=c(.005,.01,.01,.01,.01,.02)
pointDiff0(A,T, eA,eT)            # o:  puntiapp0
# La curva tracciata serve solo per visualizzare l'andamento non lineare ed
# è stata tracciata con una tecnica di "regressione" quadratica. Per curiosità
# ecco come è stata realizzata:
regression2(A,T)                 # o: regressione2
# 3.72e-05 * x^2 + 0.000325 * x + 1.93 
f = function(x) 3.72e-05 * x^2 + 0.000325 * x + 1.93
coldash="brown"; graph(f, 0,80, 0)