আমার উত্তরটি মোট হ্যাকের শুরু, তবে আপনি যা চান তা করার কোনও প্রতিষ্ঠিত উপায় সম্পর্কে আমি অবগত নই।
আমার প্রথম পদক্ষেপটি আপনার ডেটাসেটের ক্রম রেকর্ড করা হবে আপনি নিজের ডেটাসেটে আনুপাতিক অবস্থানটি সন্ধান করতে পারেন এবং তারপরে এটিকে একটি সাধারণ বিতরণে রূপান্তর করতে পারেন, এই পদ্ধতিটি রেইনল্ডস এবং হুইট, ১৯৯ 1996 সালে ব্যবহৃত হয়েছিল।
বিতরণটি স্বাভাবিক হয়ে গেলে, তারপরেই সমস্যাটি তার মাথা ঘুরিয়ে দেওয়া হয়েছিল - কুরটোসিস সামঞ্জস্য করার বিষয়টি তবে স্কিউ নয়। গুগল অনুসন্ধানে পরামর্শ দেওয়া হয়েছিল যে কুর্তোসিস সামঞ্জস্য রাখতে 1980 এবং জন ড্রাফারের পদ্ধতি অনুসরণ করতে পারে তবে স্কু নয় - তবে আমি সেই ফলাফলটির প্রতিলিপি করতে পারি না।
আমার অপরিশোধিত ছড়িয়ে পড়া / সংকীর্ণকরণের ক্রিয়াটি বিকশিত করার প্রয়াস যা ইনপুট (সাধারণীকৃত) মান নেয় এবং এ থেকে একটি মান সংযোজন বা বিয়োগ করে দেয় যা সাধারণ স্কেলে ভেরিয়েবলের অবস্থানের সাথে আনুপাতিকভাবে সংঘবদ্ধ হয়, তবে বাস্তবে এটি তৈরির প্রবণতা তৈরি হয় একটি দ্বি বিন্দু বিতরণ যদিও কাঙ্ক্ষিত skewness এবং কুর্তোসিস মান রয়েছে values
আমি বুঝতে পারি এটি একটি সম্পূর্ণ উত্তর নয়, তবে আমি ভেবেছিলাম এটি সঠিক দিকের কোনও পদক্ষেপ সরবরাহ করতে পারে।
PROCMiracle <- function(datasource,normalrank="BLOM")
{
switch(normalrank,
"BLOM" = {
rmod <- -3/8
nmod <- 1/4
},
"TUKEY" = {
rmod <- -1/3
nmod <- 1/3
},
"VW" ={
rmod <- 0
nmod <- 1
},
"NONE" = {
rmod <- 0
nmod <- 0
}
)
print("This may be doing something strange with NA values! Beware!")
return(scale(qnorm((rank(datasource)+rmod)/(length(datasource)+nmod))))
}