আপনার কাছে যা উইন্ডো সহ একটি পয়েন্ট প্যাটার্ন যা ছোট ছোট সংযোগ বিচ্ছিন্ন বহুভুজ অঞ্চলগুলিতে।
আপনি package:spatstat
যখনই সঠিক উইন্ডো দিয়ে খাওয়ান ততক্ষণ আপনি সিএসআর- এর জন্য যে কোনও পরীক্ষার ব্যবহার করতে সক্ষম হবেন । এটি প্রতিটি ক্লিয়ারিংকে সংজ্ঞায়িত করে (x, y) জোড়ার কয়েকটি সেট বা স্থানের উপরে (0,1) মানের বাইনারি ম্যাট্রিক্স হতে পারে।
প্রথমে এমন কিছু সংজ্ঞায়িত করতে দেয় যা দেখতে কিছুটা আপনার ডেটার মতো লাগে:
set.seed(310366)
nclust <- function(x0, y0, radius, n) {
return(runifdisc(n, radius, centre=c(x0, y0)))
}
c = rPoissonCluster(15, 0.04, nclust, radius=0.02, n=5)
plot(c)
এবং আমাদের ক্লিয়ারিংগুলি ভঙ্গুর কোষগুলি ভান করতে দেয় যা কেবল এটি হয়ে থাকে:
m = matrix(0,20,20)
m[1+20*cbind(c$x,c$y)]=1
imask = owin(c(0,1),c(0,1),mask = t(m)==1 )
pp1 = ppp(x=c$x,y=c$y,window=imask)
plot(pp1)
সুতরাং আমরা সেই উইন্ডোতে points পয়েন্টগুলির কে-ফাংশন প্লট করতে পারি। আমরা এটি সিএসআরবিহীন হওয়ার প্রত্যাশা করব কারণ পয়েন্টগুলি কোষের মধ্যে ক্লাস্টারযুক্ত বলে মনে হচ্ছে। লক্ষ্য করুন আমাকে দূরত্বের পরিধি ছোট হতে হবে - ঘরের আকারের ক্রম অনুসারে - অন্যথায় কে-ফাংশনটি পুরো প্যাটার্নের আকারের দূরত্বে মূল্যায়ন করে।
plot(Kest(pp1,r=seq(0,.02,len=20)))
যদি আমরা একই কক্ষে কিছু সিএসআর পয়েন্ট উত্পন্ন করি তবে আমরা কে-ফাংশন প্লটগুলি তুলনা করতে পারি। এইটি আরও সিএসআরের মতো হওয়া উচিত:
ppSim = rpoispp(73/(24/400),win=imask)
plot(ppSim)
plot(Kest(ppSim,r=seq(0,.02,len=20)))
আপনি প্রথম প্যাটার্নে কোষগুলিতে গোছানো পয়েন্টগুলি সত্যই দেখতে পাচ্ছেন না, তবে আপনি যদি নিজের গ্রাফিক্স উইন্ডোতে এটির পরিকল্পনা করেন তবে এটি পরিষ্কার। দ্বিতীয় প্যাটার্নের পয়েন্টগুলি কোষগুলির মধ্যে অভিন্ন (এবং কৃষ্ণ অঞ্চলে বিদ্যমান নেই) এবং কে-ফাংশনটি Kpois(r)
ক্লাস্টারযুক্ত ডেটার জন্য সিএসআর কে-ফাংশন এবং ইউনিফর্ম ডেটার জন্য অনুরূপ পৃথকভাবে পৃথক ।