Introduction

Height is the

Linear regression of shoe size versus height of different male idols

Data source

For this analysis, data was collected from various profile page for boy groups. The data was collected from mainly Seventeen and NCT. The height and shoe size of 15 male idols were collected. Height is in centimeter and shoe size is also in centimeter.

# Height versus shoe size

#Height(in cm)

h = c(175,171,185,176,178,172,180,179,180,175,171,177,174,177,176,180,179,182,164)

H = list(175,171,185,176,178,172,180,179,180,175,171,177,174,177,176,180,179,182,164)

#Shoe size(in cm)

s = c(26.5,26.0,28.0,26.5,26.0,27.0,27.5,27.0,26.0,27.0,27.5,26.5,27.0,26.5,27.5,28.0,26.0,28.0,26.0)

s
##  [1] 26.5 26.0 28.0 26.5 26.0 27.0 27.5 27.0 26.0 27.0 27.5 26.5 27.0 26.5 27.5
## [16] 28.0 26.0 28.0 26.0
#Plot of Linear Graph

sh = lm(h~s,data=H)

sh
## 
## Call:
## lm(formula = h ~ s, data = H)
## 
## Coefficients:
## (Intercept)            s  
##      99.591        2.858
plot(s,h)

abline(sh,col = "blue")

summary(sh)
## 
## Call:
## lm(formula = h ~ s, data = H)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -9.8869 -2.4588  0.6844  2.3268  6.1131 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)  
## (Intercept)   99.591     38.317   2.599   0.0187 *
## s              2.858      1.426   2.004   0.0612 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 4.376 on 17 degrees of freedom
## Multiple R-squared:  0.1912, Adjusted R-squared:  0.1436 
## F-statistic: 4.018 on 1 and 17 DF,  p-value: 0.06122
#plot of residual

plot(sh$residuals,pch = 16 ,col = "blue")

abline(a=0,b=0,col="blue")

Discussion