R ဖြင့် weibull ဖြန့်ချီပုံကို ဘယ်လိုဆွဲမလဲ။

Weibull ဖြန့်ဝေမှုအတွက် ဖြစ်နိုင်ခြေသိပ်သည်းမှုလုပ်ဆောင်ချက်ကို R တွင်ဆွဲရန်၊ အောက်ပါလုပ်ဆောင်ချက်များကို ကျွန်ုပ်တို့အသုံးပြုနိုင်သည်-

• ဖြစ်နိုင်ခြေသိပ်သည်းဆလုပ်ဆောင်ချက်ကို ဖန်တီးရန် dweibull(x၊ ပုံသဏ္ဍာန်၊ အတိုင်းအတာ = 1) ။
• ဖြစ်နိုင်ခြေသိပ်သည်းဆလုပ်ဆောင်မှုကို ကြံစည်ရန် curve(function၊ from = NULL၊ to = NULL) ။

ဖြစ်နိုင်ခြေသိပ်သည်းဆလုပ်ဆောင်မှုကို ကြံစည်ရန်၊ ကျွန်ုပ်တို့သည် dweibull လုပ်ဆောင်ချက်ရှိ ပုံသဏ္ဍာန် နှင့် စကေးပါရာ မီတာ၏တန်ဖိုးအပြင် curve() လုပ်ဆောင်ချက်ရှိ တန်ဖိုးများ မှ နှင့် အထိ တန်ဖိုးများကို သတ်မှတ်ရန် လိုအပ်သည်။

ဥပမာအားဖြင့်၊ အောက်ဖော်ပြပါကုဒ်သည် Weibull ဖြန့်ဝေမှုတစ်ခုအတွက် ဖြစ်နိုင်ခြေသိပ်သည်းဆလုပ်ဆောင်ချက်ကို ဘောင်များပုံသဏ္ဍာန် = 2 နှင့် စကေး = 1 ပါရှိသော ကွက်လပ်၏ x ဝင်ရိုး 0 မှ 4 သို့သွားသော ဖြစ်နိုင်ခြေသိပ်သည်းဆလုပ်ဆောင်ချက်ကို သရုပ်ဖော်သည်-

 curve(dweibull(x, shape=2, scale = 1), from=0, to=4)

ကျွန်ုပ်တို့သည် ခေါင်းစဉ်တစ်ခုထည့်ခြင်း၊ Y ဝင်ရိုးအညွှန်းကိုပြောင်းခြင်း၊ အတန်းအကျယ်ကို တိုးမြှင့်ခြင်းနှင့် ကွက်ကွက်ကို ပိုမိုသာယာလှပစေရန်အတွက် အတန်းအရောင်ကိုပင် ပြောင်းလဲနိုင်သည်-

 curve(dweibull(x, shape=2, scale = 1), from=0, to=4, 
    main = 'Weibull Distribution (shape = 2, scale = 1)', #add title
    ylab = 'Density', #change y-axis label
    lwd = 2, #increase line width to 2
    col = 'steelblue') #change line color to steelblue 

Weibull ဖြန့်ဝေမှုများကို မတူညီသော ပုံသဏ္ဍာန်နှင့် စကေးကန့်သတ်ချက်များဖြင့် နှိုင်းယှဉ်ရန် ဂရပ်သို့ မျဉ်းကွေးအများအပြားကိုလည်း ထည့်နိုင်သည်-

 curve(dweibull(x, shape=2, scale = 1), from=0, to=4, col='red')
curve(dweibull(x, shape=1.5, scale = 1), from=0, to=4, col='blue', add=TRUE)

အောက်ပါ syntax ကိုယူသည့် legend() လုပ်ဆောင်ချက်ကို အသုံးပြု၍ ဇာတ်ကွက်ထဲသို့ ဒဏ္ဍာရီတစ်ခုကို ထည့်နိုင်သည်။

legend(x၊ y=NULL၊ ဒဏ္ဍာရီ၊ ဖြည့်စွက်၊ col၊ bg၊ lty၊ cex)

ရွှေ-

• x၊ y- ဒဏ္ဍာရီနေရာချထားရန် အသုံးပြုသည့် x နှင့် y သြဒိနိတ်များ
• ဒဏ္ဍာရီ – ဒဏ္ဍာရီတွင်ထည့်ရန်စာသား
• ဖြည့်စွက်- ဒဏ္ဍာရီအတွင်းတွင် အရောင်ဖြည့်ပါ။
• col- ဒဏ္ဍာရီအတွင်းရှိ လိုင်းများအတွက် အသုံးပြုရန် အရောင်များစာရင်း
• bg- ဒဏ္ဍာရီ၏ နောက်ခံအရောင်
• lty: လိုင်းစတိုင်
• cex: ဒဏ္ဍာရီထဲက စာသားအရွယ်အစား

ကျွန်ုပ်တို့၏နမူနာတွင် ဒဏ္ဍာရီတစ်ခုဖန်တီးရန် အောက်ပါ syntax ကို အသုံးပြုပါမည်။

 #create density plots
curve(dweibull(x, shape=2, scale = 1), from=0, to=4, col='red')
curve(dweibull(x, shape=1.5, scale = 1), from=0, to=4, col='blue', add=TRUE)

#add legend
legend(2, .7, legend=c("shape=2, scale=1", "shape=1.5, scale=1"),
       col=c("red", "blue"), lty=1, cex=1.2)