Displaying 1 result from an estimated 1 matches for "y2_u".
Did you mean:
y2_
2010 Dec 30
2
optim and singularity
...)[2])),by=1),labels=seq(floor(min(range(na.omit(temp.dat$Avg.EM.Survey.Value))[1],range(na.omit(temp.dat$Avg.Soil.Paste.EC))[1])),ceiling(max(range(na.omit(temp.dat$Avg.EM.Survey.Value))[2],range(na.omit(temp.dat$Avg.Soil.Paste.EC))[2])),by=1),las=1)
f<-function(ylim_2){
y2_l<-ylim_2[1]
y2_u<-ylim_2[2]
#solve for "x", the coeffs to map the right
#referenced values to their left-axis equivalent
A<-matrix(c(y2_l,y2_u,1,1),nrow=2,ncol=2,byrow=F)
RHS<-matrix(ylim_1,nrow=2,ncol=1,byrow=T)
x<-solve(A,RHS)
#map the right-referenced values to their
#corre...