title: How to get Loess function for my data in R?
body: <p>I have a some data and I draw them on a plot, using R.
  After that, I draw the loess function about that data.
  Here is the code:</p>
  
  <pre><code>data &lt;- read.table("D:/data.csv", header=TRUE, sep=",", na.strings="NA", dec=".", strip.white=TRUE)
  ur &lt;- subset(data, select = c(users,responseTime))
  ur &lt;- ur[with(ur, order(users, responseTime)), ]
  
  plot(ur, xlab="Users", ylab="Response Time (ms)")
  lines(ur)
  loess_fit &lt;- loess(responseTime ~ users, ur)
  lines(ur$users, predict(loess_fit), col = "blue")
  </code></pre>
  
  <p>Here's my plot's image:
  <img src="https://i.stack.imgur.com/jFZMM.png" alt="http://tinypic.com/r/2ziqa2x/8"></p>
  
  <p>How can I get the function of this regression?
  For example: responseTime = 68 + 45 * users.</p>
  
  <p>Thanks.</p>