library(TSA)
set.seed(13193)
theta=.8
n=50
y=arima.sim(model=list(ma=c(-theta)),n=n)
plot(y,type='o')
y=arima.sim(model=list(ma=c(-theta)),n=n);acf(y,ci.type='ma')