Yep, that was it. Needed to remove neg freq from opposite end of s[] coef<- 1-(((1:n)>8-1) & ((1:n)<8+1) | (((1:n)>(n-6)-1) & ((1:n)<(n-6)+1)) ) Sorry to bother you. Cheers Bill