day2 HW

library(tidyverse)
library(knitr)

titanic <- read_csv("train.csv")

glimpse(titanic)

Rows: 891
Columns: 12
$ PassengerId <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17,…
$ Survived    <dbl> 0, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 1…
$ Pclass      <dbl> 3, 1, 3, 1, 3, 3, 1, 3, 3, 2, 3, 1, 3, 3, 3, 2, 3, 2, 3, 3…
$ Name        <chr> "Braund, Mr. Owen Harris", "Cumings, Mrs. John Bradley (Fl…
$ Sex         <chr> "male", "female", "female", "female", "male", "male", "mal…
$ Age         <dbl> 22, 38, 26, 35, 35, NA, 54, 2, 27, 14, 4, 58, 20, 39, 14, …
$ SibSp       <dbl> 1, 1, 0, 1, 0, 0, 0, 3, 0, 1, 1, 0, 0, 1, 0, 0, 4, 0, 1, 0…
$ Parch       <dbl> 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 1, 0, 0, 5, 0, 0, 1, 0, 0, 0…
$ Ticket      <chr> "A/5 21171", "PC 17599", "STON/O2. 3101282", "113803", "37…
$ Fare        <dbl> 7.2500, 71.2833, 7.9250, 53.1000, 8.0500, 8.4583, 51.8625,…
$ Cabin       <chr> NA, "C85", NA, "C123", NA, NA, "E46", NA, NA, NA, "G6", "C…
$ Embarked    <chr> "S", "C", "S", "S", "S", "Q", "S", "S", "S", "C", "S", "S"…

library(tibble)
library(knitr)

var_table <- tibble(
  `Variable Name` = c("PassengerId", "HomePlanet", "CryoSleep", "Cabin",
                      "Destination", "Age", "VIP", "RoomService",
                      "FoodCourt", "ShoppingMall", "Spa", "VRDeck",
                      "Name", "Transported"),
  `Type of Variable` = c("character", "character", "character", "character",
                         "character", "numeric", "character", "numeric",
                         "numeric", "numeric", "numeric", "numeric",
                         "character", "character"),
  `Level of Measurement` = c("Nominal", "Nominal", "Nominal", "Nominal",
                             "Nominal", "Ratio", "Nominal", "Ratio",
                             "Ratio", "Ratio", "Ratio", "Ratio",
                             "Nominal", "Nominal")
)

kable(var_table, caption = "Table 1: Variable Name, Type, and Level of Measurement")

Table 1: Variable Name, Type, and Level of Measurement

Variable Name	Type of Variable	Level of Measurement
PassengerId	character	Nominal
HomePlanet	character	Nominal
CryoSleep	character	Nominal
Cabin	character	Nominal
Destination	character	Nominal
Age	numeric	Ratio
VIP	character	Nominal
RoomService	numeric	Ratio
FoodCourt	numeric	Ratio
ShoppingMall	numeric	Ratio
Spa	numeric	Ratio
VRDeck	numeric	Ratio
Name	character	Nominal
Transported	character	Nominal