dev/fittingAssociationFlipped.R

In ffeng23/ADASPR: An R package to characterize the distributed affinities in a multi-ligand system

###
#first test lm with fixed intercept
x<-c(1:100)
a<-10
b<-20
y<-a*x+b
y<-y+rnorm(length(y),0,0.5)

fit.full<-lm(y~x)

##try fixed int
fit.fixIntercept<-lm(y~x+1, offset=rep(20,length(y)))