Influence.measures using LOESS

Question

Is there a possibility to use Fluence.measures from the result obtained with LOESS? For example, be the following excerpt:

x <- 1:120 
y <- sin(2*pi*x/period) + runif(length(x),-1,1)
plot(x,y, main="Sine Curve + 'Uniform' Noise")
y.loess <- loess(y ~ x, span=0.75, data.frame(x=x, y=y))
xl <- seq(min(x),max(x), (max(x) - min(x))/1000)
y.predict <- predict(y.loess, xl)
lines(xl,y.predict);

I want to know what are the sample outliers, as we get in Fluence.measures. Using LOESS is possible to know?