iden<-
function(y, a = 3,c=0.05)
{
	n <- length(y)
	oy <- order(abs(y))
	b<-y*c
        which <- oy[(n - a + 1):n]	 
	text(seq(1:n)[which], y[which]+b[which], as.character(which))
list(y=y,b=b)}