Rcmdr.kr: An R Commander User in Korea

datasets::swiss()

?swiss  # swiss 데이터셋 도움말 보기

# 아래는 example(swiss) 입니다.

require(stats); require(graphics)
pairs(swiss, panel = panel.smooth, main = "swiss data",
      col = 3 + (swiss$Catholic > 50))
summary(lm(Fertility ~ . , data = swiss))

pairs(swiss, panel = panel.smooth, main = "swiss data",
      col = 3 + (swiss$Catholic > 50))

pairs(swiss, panel = panel.smooth, main = "swiss data")  # 두 그래프를 비교해 보기

LinearModel.1 <- lm(Fertility ~ . , data = swiss)
summary(LinearModel.1)

datasets::USArrests()

?USArrests  # USArrests 데이터셋 도움말 보기

# 아래는 example(USArrests) 입니다.

summary(USArrests)

require(graphics)
pairs(USArrests, panel = panel.smooth, main = "USArrests data")

## Difference between 'USArrests' and its correction
USArrests["Maryland", "UrbanPop"] # 67 -- the transcription error
UA.C <- USArrests
UA.C["Maryland", "UrbanPop"] <- 76.6

## also +/- 0.5 to restore the original  <n>.5  percentages
s5u <- c("Colorado", "Florida", "Mississippi", "Wyoming")
s5d <- c("Nebraska", "Pennsylvania")
UA.C[s5u, "UrbanPop"] <- UA.C[s5u, "UrbanPop"] + 0.5
UA.C[s5d, "UrbanPop"] <- UA.C[s5d, "UrbanPop"] - 0.5

# USArrests 원자료를 수정한 UA.C 데이터셋

pairs(UA.C, panel = panel.smooth, main = "USArrests data (corrected)")

datasets::airquality()

?airquality # airquality 데이터셋 도움말 보기

# 아래는 example(airquality) 입니다.

require(graphics)
pairs(airquality, panel = panel.smooth, main = "airquality data")