search for: sumsqrdiff

...x<-solve(A,RHS) #map the right-referenced values to their #corresponding left-axis values temp.dat.mapped<-x[1,1]*temp.dat$Avg.EM.Survey.Value+x[2,1] #calculate the resids between green squares and blue circles resids<-na.omit(data.frame(Col1=temp.dat$WTD,Col2=temp.dat.mapped,SumSqrDiff=(temp.dat$WTD-temp.dat.mapped)^2)) #quantity to be minimized min_this<-sum(resids$SumSqrDiff) min_this } edm<-optim(ylim_2,f,lower=c(0,0),upper=c(100,100),method="L-BFGS-B") ylim_2<-edm$par -- View this message in context: http://r.789695.n4.nabble.com/optim-and-singular...

..._Date,"%m/%d/%Y"))) #map the right-referenced values to their #corresponding left-axis values temp.dat.mapped<-x[1,1]*temp.dat$Avg.EM.Survey.Value+x[2,1] #calculate the resids between green squares and blue circles resids<-na.omit(data.frame(Col1=temp.dat$WTD,Col2=temp.dat.mapped,SumSqrDiff=(temp.dat$WTD-temp.dat.mapped)^2)) #quantity to be minimized min_this<-sum(resids$SumSqrDiff) -- View this message in context: http://r.789695.n4.nabble.com/adjust-secondary-y-axis-bounds-to-minimize-visual-residuals-tp3161213p3161213.html Sent from the R help mailing list archive at Nabble....