Добавить 95% доверительный интервал к кумулятивному графику

Я хотел бы добавить линию параболы, обозначающую 95% доверительный интервал к этому графику подбрасывания монеты, используя R:

x  <- sample(c(-1,1), 60000, replace = TRUE)
plot.ts(cumsum(x), ylim=c(-250,250))

Вот пример того, что я ищу:

ОБНОВЛЕНИЕ: @ bill_080 отличный ответ. Однако я уже подсчитал 100 000 подбрасываний монет:

str(100ktoss)
num [1:100000] -1 1 1 1 -1 -1 1 -1 -1 -1 ...

и я действительно хочу просто добавить 95% -ный предел к этому графику:

plot.ts(cumsum(100ktoss))

Потребовалось несколько часов, чтобы рассчитать мои подбрасывания 100 000 монет, и когда я пытаюсь воспроизвести код @ bill_080 У меня заканчивается память (на 100000).

ОКОНЧАТЕЛЬНОЕ ОБНОВЛЕНИЕ: Хорошо. Последняя проблема. У меня есть график нескольких раундов кумулятивных совпадений на одном графике с началом каждого раунда, установленным на нуле (фактически 1 или -1 в зависимости от того, было ли это выигрыш или проигрыш).

>str(1.ts)  
Time-Series [1:35] from 1 to 35: 1 2 1 2 3 4 5 4 5 6 ...  
>str(2.ts)  
Time-Series [1:150] from 36 to 185: -1 0 1 0 -1 -2 -1 0 1 2 ...  

Я хотел бы добавить тот же 95% лимит для каждого сегмента, как и в этом случае. Теперь решено :

@ bill_080 Большое спасибо. Это конечный продукт: