আমি এই প্রশ্ন থেকেই উত্তর হয়েছে (এবং বেশ ভাল, আমার দৃষ্টিতে), কিন্তু একটি ভিন্ন প্রশ্ন ছিল এখানে যা ছিল একটি মন্তব্য @NRH যে গ্রাফিক্যাল ব্যাখ্যা উল্লেখ করা হয়েছে, এবং বদলে ছবি লাগাতে সেখানে এটা আরো মানানসই মনে হবে তাদের এখানে রাখুন।
সুতরাং, এখানে যায়। এটি আর প্যাকেজের মতো দুর্দান্ত নয়। তবে এটি স্ব-অন্তর্ভুক্ত এবং জেএসটিওআর-র সাবস্ক্রিপশন প্রয়োজন হয় না।
নিম্নলিখিতটিতে আমরা একটি সাধারণ এলোমেলো হাঁটার কথা বলছি, সমান সম্ভাবনা সহ, এবং আমরা চলমান গড় গণনা করছি,
এস এনXi=±1
Snn=1n∑i=1nXi,n=1,2,….
এসএলএলএন (প্রায় নিশ্চিতভাবে রূপান্তর) বলেছে যে আমরা 100% নিশ্চিত হতে পারি যে ডানদিকে প্রসারিত এই বক্ররেখার অবশেষে, কিছু সীমাবদ্ধ সময়ে পুরোপুরি ব্যান্ডগুলির মধ্যে পরে চিরকালের পরে (ডানদিকে) পড়ে যাবে।
এই গ্রাফটি তৈরি করতে ব্যবহৃত আর কোডটি নীচে রয়েছে (ব্রেভিটির জন্য প্লটের লেবেল বাদ দেওয়া হয়েছে)।
n <- 1000; m <- 50; e <- 0.05
s <- cumsum(2*(rbinom(n, size=1, prob=0.5) - 0.5))
plot(s/seq.int(n), type = "l", ylim = c(-0.4, 0.4))
abline(h = c(-e,e), lty = 2)
ডাব্লুএলএলএন (সম্ভাব্যতায় রূপান্তর) বলেছে যে নমুনা পাথের একটি বৃহত অংশ ডানদিকে থাকা ব্যান্ডগুলিতে থাকবে, সময় (উপরের জন্য এটি 50 এর মধ্যে 48 বা 9 এর মতো দেখাচ্ছে)। আমরা কখনই নিশ্চিত হতে পারি না যে কোনও নির্দিষ্ট বক্ররেখা যে কোনও সীমাবদ্ধ সময়ে ভিতরে থাকবে তবে এটির উপরে নুডলসের ভর দেখলে এটি বেশ নিরাপদ বাজি হয়ে উঠবে। ডাব্লুএলএলএন আরও বলেছে যে প্লটটি পর্যাপ্ত প্রশস্ত করে আমরা নুডলসের অনুপাতটিকে 1 এর কাছাকাছি করতে পারি 1n
গ্রাফের জন্য আর কোড অনুসরণ করে (আবার, লেবেলগুলি এড়িয়ে চলেছে)।
x <- matrix(2*(rbinom(n*m, size=1, prob=0.5) - 0.5), ncol = m)
y <- apply(x, 2, function(z) cumsum(z)/seq_along(z))
matplot(y, type = "l", ylim = c(-0.4,0.4))
abline(h = c(-e,e), lty = 2, lwd = 2)