# NOT RUN {
# fitting a DNA strand
# displacement amplification surface to various buffer compositions
fit<- Tps(BD[,1:4],BD$lnya,scale.type="range")
surface(fit) # plots fitted surface and contours
# }
Run the code above in your browser using DataLab