আমাকে এই কাজটি দেওয়া হয়েছে এবং স্টাম্পড হয়েছিল। একজন সহকর্মী আমাকে নীচের চার্টের এবং অনুমান করতে :
বক্ররেখাটি আসলে একটি ক্রমবর্ধমান বিতরণ এবং এক্স এক ধরণের পরিমাপ। যখন ক্রমসংক্রান্ত ক্রিয়াটি সোজা হয়ে উঠতে শুরু করে এবং সরল থেকে বিচ্যুত হতে শুরু করে তখন x এর সাথে সম্পর্কিত মানগুলি কী তা জানতে আগ্রহী তিনি।
আমি বুঝতে পারি যে আমরা এক পর্যায়ে opeাল সন্ধান করতে পার্থক্য ব্যবহার করতে পারি, তবে কখন লাইনটি সরাসরি কল করতে পারি তা কীভাবে নির্ধারণ করা যায় তা আমি নিশ্চিত নই। ইতিমধ্যে বিদ্যমান কিছু পদ্ধতির / সাহিত্যের প্রতি যে কোনও ধাক্কা প্রশংসিত হবে।
আপনি যদি এই ধরণের তদন্তের কোনও প্রাসঙ্গিক প্যাকেজ বা উদাহরণ জানতে চান তবে আমি আর জানি।
অনেক ধন্যবাদ.
হালনাগাদ
ফ্লাউন্ডারারের জন্য ধন্যবাদ আমি কাজটি আরও প্রসারিত করতে, একটি কাঠামো স্থাপন করতে এবং এখানে এবং সেখানে পরামিতিগুলি টিঙ্কার করতে সক্ষম হয়েছি। শেখার উদ্দেশ্যে এখানে আমার বর্তমান কোড এবং একটি গ্রাফিক আউটপুট রয়েছে।
library(ESPRESSO)
x <- skew.rnorm(800, 150, 5, 3)
x <- sort(x)
meanX <- mean(x)
sdX <- sd(x)
stdX <- (x-meanX)/sdX
y <- pnorm(stdX)
par(mfrow=c(2,2), mai=c(1,1,0.3,0.3))
hist(x, col="#03718750", border="white", main="")
nq <- diff(y)/diff(x)
plot.ts(nq, col="#6dc03480")
log.nq <- log(nq)
low <- lowess(log.nq)
cutoff <- .7
q <- quantile(low$y, cutoff)
plot.ts(log.nq, col="#6dc03480")
abline(h=q, col="#348d9e")
x.lower <- x[min(which(low$y > q))]
x.upper <- x[max(which(low$y > q))]
plot(x,y,pch=16,col="#03718750", axes=F)
axis(side=1)
axis(side=2)
abline(v=c(x.lower, x.upper),col="red")
text(x.lower, 1.0, round(x.lower,0))
text(x.upper, 1.0, round(x.upper,0))
