> jj
      Qtr1  Qtr2  Qtr3  Qtr4
1960  0.71  0.63  0.85  0.44
1961  0.61  0.69  0.92  0.55
1962  0.72  0.77  0.92  0.60
1963  0.83  0.80  1.00  0.77
1964  0.92  1.00  1.24  1.00
1965  1.16  1.30  1.45  1.25
1966  1.26  1.38  1.86  1.56
1967  1.53  1.59  1.83  1.86
1968  1.53  2.07  2.34  2.25
1969  2.16  2.43  2.70  2.25
1970  2.79  3.42  3.69  3.60
1971  3.60  4.32  4.32  4.05
1972  4.86  5.04  5.04  4.41
1973  5.58  5.85  6.57  5.31
1974  6.03  6.39  6.93  5.85
1975  6.93  7.74  7.83  6.12
1976  7.74  8.91  8.28  6.84
1977  9.54 10.26  9.54  8.73
1978 11.88 12.06 12.15  8.91
1979 14.04 12.96 14.85  9.99
1980 16.20 14.67 16.02 11.61

k = c(.5, 1, 1, 1, .5)

fjj1 = filter(jj, sides=2,k)
max_threshold = fjj1 * 1.2
min_threshold = fjj1 * .8

min_outliers <- jj < min_threshold
max_outlieres <- jj > max_threshold

min_outliers[min_outliers==FALSE] <- NA
max_outliers[max_outliers==FALSE] <-- NA

plot(jj)
lines(max_threshold, col="red", lty="dashed")
lines(min_threshold, col="green", lty="dashed")
lines(fjj1, col="blue", lty="dashed")

> min_outliers
     Qtr1 Qtr2 Qtr3 Qtr4
1960   NA   NA   NA TRUE
1961   NA   NA   NA TRUE
1962   NA   NA   NA TRUE
1963   NA   NA   NA   NA
1964   NA   NA   NA   NA
1965   NA   NA   NA   NA
1966   NA   NA   NA   NA
1967   NA   NA   NA   NA
1968   NA   NA   NA   NA
1969   NA   NA   NA   NA
1970   NA   NA   NA   NA
1971   NA   NA   NA   NA
1972   NA   NA   NA   NA
1973   NA   NA   NA   NA
1974   NA   NA   NA   NA
1975   NA   NA   NA   NA
1976   NA   NA   NA TRUE
1977   NA   NA   NA   NA
1978   NA   NA   NA TRUE
1979   NA   NA   NA TRUE
1980   NA   NA   NA   NA