rtMSE=summary(one)$sigma
levone=hatvalues(one)
cookone=(cooks.distance(one)*rtMSE^2)
c(levone[41],levone[86],levone[126],levone[192])
c(hatvalues(cm)[41],hatvalues(cm)[86],
hatvalues(cm)[126],hatvalues(cm)[192])
c(cookone[41],cookone[86],cookone[126],cookone[192])
c(cooks.distance(cm)[41],cooks.distance(cm)[86],
cooks.distance(cm)[126],cooks.distance(cm)[192])