আমার কিছু ডেটা রয়েছে যা আমি ব্যবহার করে মসৃণ করি loess
। আমি স্মুথযুক্ত রেখার প্রতিচ্ছবি পয়েন্টগুলি সন্ধান করতে চাই। এটা কি সম্ভব? আমি নিশ্চিত যে এটি সমাধানের জন্য কেউ অভিনব পদ্ধতি তৈরি করেছে ... মানে ... ... সর্বোপরি, এটি আর!
আমি ব্যবহার করি স্মুথ ফাংশন পরিবর্তন করে আমি ঠিক আছি। আমি কেবল ব্যবহার করেছি loess
কারণ আগে আমি যা ব্যবহার করেছি। তবে কোনও স্মুথ ফাংশন ঠিক আছে। আমি বুঝতে পারি যে প্রতিযোগিতা পয়েন্টগুলি আমি ব্যবহার করা স্মুথ ফাংশনের উপর নির্ভরশীল। আমি ঠিক আছে। আমি কেবল কোনও স্মুথ ফাংশন করে শুরু করতে চাই যা প্রতিস্থাপনের পয়েন্টগুলিকে থুথুতে সহায়তা করে।
আমি যে কোডটি ব্যবহার করি তা এখানে:
x = seq(1,15)
y = c(4,5,6,5,5,6,7,8,7,7,6,6,7,8,9)
plot(x,y,type="l",ylim=c(3,10))
lo <- loess(y~x)
xl <- seq(min(x),max(x), (max(x) - min(x))/1000)
out = predict(lo,xl)
lines(xl, out, col='red', lwd=2)