d <- read.csv(‘https://stats.dip.jp/01_ds/data/heart.data.csv’)[, -1]

library(DT) datatable(round(d, 1))

カラーパレット

COL <- c(rgb(255, 0, 0, 255, max = 255), # 赤 rgb( 0, 0, 255, 255, max = 255), # 青 rgb( 0, 155, 0, 255, max = 255)) # 緑

library(psych) pairs.panels(d)

fit <- lm(heart.disease ~ biking + smoking, data = d)

library(sjPlot) tab_model(fit, show.stat = T, show.aic = T)

plot_model(fit, show.values = T, show.intercept = T, width = 0.1)

plot(fit)

d <- read.csv(‘https://stats.dip.jp/01_ds/data/real_estate_price.csv’)

library(psych) pairs.panels(d)

library(DT) datatable(round(d, 1))

fit <- lm(price~yrs_old+m_sta, data = d)

library(sjPlot) tab_model(fit, show.stat = T, show.aic = T)

plot(fit)