আমি আরসিপিপি ব্যবহার করতে শিখতে চাই । আমি প্যাকেজের সিআরএএন ওয়েবসাইটে ডক্সটি দিয়েছি, তবে আমি মনে করি একটি ব্যবহারিক উদাহরণে কাজ করা (দ্বিতীয় ব্যবহারিক, কনভলভ 3 বিবেচনা করে) আরও সহায়ক হবে।
রোবস্টবেস প্যাকেজটি থেকে আমি নিম্নলিখিত কোডটি প্রস্তাব করছি কারণ এটি খুব দীর্ঘ বা খুব ছোট নয়, আর প্রকার এবং আর ফাংশনগুলির সংমিশ্রণ ব্যবহার করে এবং সেই ছোট ছোট গাণিতিক পুনরাবৃত্তিগুলির একটি রয়েছে যা আর এর মধ্যে খুব ধীর হয় you আপনি আরসিপিপি সম্পর্কে কীভাবে যাবেন? - এটা?
scaleTau2<-function (x, c1 = 4.5, c2 = 3, consistency = TRUE, mu.too = FALSE){
n <- length(x)
medx <- median(x)
x. <- abs(x - medx)
sigma0 <- median(x.)
mu <- if (c1 > 0) {
x. <- x./(sigma0 * c1)
w <- 1 - x. * x.
w <- ((abs(w) + w)/2)^2
sum(x * w)/sum(w)
}
else medx
x <- (x - mu)/sigma0
rho <- x^2
rho[rho > c2^2] <- c2^2
if (!identical(consistency, FALSE)) {
Erho <- function(b) 2*((1-b^2)*pnorm(b)-b*dnorm(b)+b^2)-1
Es2 <- function(c2) Erho(c2*qnorm(3/4))
nEs2 <-ifelse(consistency == "finiteSample",n-2,n)*Es2(c2)
}
else nEs2 <- n
c(if (mu.too) mu, sigma0 * sqrt(sum(rho)/nEs2))
}
আপনি যতটা পারেন ব্যাখ্যা করুন।
সম্পাদনা করুন আপনি কীভাবে একটি ভাল রচিত (এবং নথিভুক্ত) আর কোড (যাতে কমপক্ষে ভিত্তি ঠিক আছে) একটি কার্যকর বাস্তবায়নে রূপান্তর করতে যাবেন সে সম্পর্কে ধাপে ধাপে ব্যাখ্যা করার ধারণা এটি সম্পাদনা করুন । কোডের পছন্দটি কিছুটা এলোমেলো তবে আমি মনে করি এটি আমাদের ব্লুপ্রিন্টগুলিতে আর্ক-টাইপিক্যাল স্ক্রিপ্টকে প্রতিফলিত করে (আর ফাংশনকে কল করে যে অনুবাদ করতে চায় না, গাণিতিক লুপগুলি ব্যবহার করে ....)।
আমি যে মন্তব্যগুলি বুঝতে পেরেছি তা থেকে সম্পাদনা 2 এটি আসলে সি ++ এ করা বড় কাজ হতে পারে (কোডটি পোস্ট করার সময় আমি এটি বুঝতে পারি নি)। এ সম্পর্কে, পৃথক টুকরোকে পাঠ্যক্রমিক ডিভাইস হিসাবে ব্যবহার করা ঠিক আছে। প্রশ্নটি সম্পাদনা করে অবশেষে টুকরোগুলি পার্স করব।