R တွင် ယုံကြည်မှုကြားကာလကို မည်သို့ဆွဲမည်နည်း။

ယုံကြည်မှုကြားကာလ သည် ယုံကြည်စိတ်ချမှုအဆင့်တစ်ခုရှိ လူဦးရေကန့်သတ်ချက်ပါ၀င်နိုင်ခြေရှိသော တန်ဖိုးများအကွာအဝေးတစ်ခုဖြစ်သည်။

ဤသင်ခန်းစာသည် R တွင် ဒေတာအတွဲတစ်ခုအတွက် ယုံကြည်မှုကြားကာလကို မည်သို့ဆွဲရမည်ကို ရှင်းပြထားသည်။

ဥပမာ- R တွင် ယုံကြည်မှုကြားကာလကို ပုံဖော်ခြင်း။

R တွင် အတန်း 100 နှင့် ကော်လံ 2 ခုပါသော အောက်ပါဒေတာအစုံရှိသည်ဆိုပါစို့။

 #make this example reproducible
set.seed(0)

#create dataset
x <- rnorm(100)
y <- x*2 + rnorm(100)
df <- data.frame(x = x, y = y)

#view first six rows of dataset
head(df)

           xy
1 1.2629543 3.3077678
2 -0.3262334 -1.4292433
3 1.3297993 2.0436086
4 1.2724293 2.5914389
5 0.4146414 -0.3011029
6 -1.5399500 -2.5031813

x နှင့် y အကြား ဆက်နွယ်မှု၏ ဂရပ်တစ်ခုကို ဖန်တီးရန်၊ ကျွန်ုပ်တို့သည် ပထမဦးစွာ linear regression model ကို ကိုက်ညီနိုင်သည်-

 model <- lm(y ~ x, data = df)

ထို့နောက်၊ ကျွန်ုပ်တို့သည် abline() လုပ်ဆောင်ချက်နှင့် အမှန်တကယ်ယုံကြည်မှုကြိုးဝိုင်းများကို ဖန်တီးရန်အတွက် abline() လုပ်ဆောင်ချက်နှင့် လိုင်းများ() လုပ်ဆောင်ချက်ကို အသုံးပြု၍ ခန့်မှန်းခြေမျဉ်းဆုတ်ဆုတ်မျဉ်းတစ်ကွက်ကို ဖန်တီးနိုင်သည်-

 #get predicted y values using regression equation
newx <- seq(min(df$x), max(df$x), length.out=100)
preds <- predict(model, newdata = data.frame(x=newx), interval = 'confidence')

#create plot of x vs. y, but don't display individual points (type='n') 
plot(y ~ x, data = df, type = 'n')

#add fitted regression line
abline(model)

#add dashed lines for confidence bands
lines(newx, preds[,3], lty = 'dashed', col = 'blue')
lines(newx, preds[,2], lty = 'dashed', col = 'blue') 

အနက်ရောင်မျဉ်းသည် တပ်ဆင်ထားသော မျဉ်းကြောင်းအတိုင်း ဆုတ်ယုတ်မှုမျဉ်းကို ပြသပြီး အပြာရောင်မျဉ်းနှစ်ကြောင်းသည် ယုံကြည်မှုကြားကာလများကို ပြသသည်။

စိတ်ကြိုက်ရွေးချယ်နိုင်သည်၊ သင်သည် အောက်ပါကုဒ်ကို အသုံးပြု၍ ယုံကြည်မှုကြားကာလမျဥ်းများနှင့် ခန့်မှန်းခြေမျဉ်းကြောင်းဆုတ်ယုတ်မှုမျဉ်းကြားရှိ ဧရိယာကိုလည်း ဖြည့်နိုင်သည်-

 #create plot of x vs. y
plot(y ~ x, data = df, type = 'n')

#fill in area between regression line and confidence interval
polygon(c(rev(newx), newx), c(rev(preds[,3]), preds[,2]), col = 'grey', border = NA)

#add fitted regression line
abline(model)

#add dashed lines for confidence bands
lines(newx, preds[,3], lty = 'dashed', col = 'blue')
lines(newx, preds[,2], lty = 'dashed', col = 'blue') 

ဤတွင် ကုဒ်အပြည့်အစုံမှာ အစမှအဆုံးဖြစ်သည်။

 #make this example reproducible
set.seed(0)

#create dataset
x <- rnorm(100)
y <- x*2 + rnorm(100)
df <- data.frame(x = x, y = y)

#fit linear regression model
model <- lm(y ~ x, data = df)

#get predicted y values using regression equation
newx <- seq(min(df$x), max(df$x), length.out=100)
preds <- predict(model, newdata = data.frame(x=newx), interval = 'confidence')

#create plot of x vs. y
plot(y ~ x, data = df, type = 'n')

#fill in area between regression line and confidence interval
polygon(c(rev(newx), newx), c(rev(preds[,3]), preds[,2]), col = 'grey', border = NA)

#add fitted regression line
abline(model)

#add dashed lines for confidence bands
lines(newx, preds[,3], lty = 'dashed', col = 'blue')
lines(newx, preds[,2], lty = 'dashed', col = 'blue')

ထပ်လောင်းအရင်းအမြစ်များ

ယုံကြည်မှုကြားကာလဆိုတာ ဘာလဲ။
ကွက်များသို့ မျဉ်းဖြောင့်များထည့်ရန် R တွင် abline() လုပ်ဆောင်ချက်ကို မည်သို့အသုံးပြုရမည်နည်း။