Data Day 2 Homework

Table code

table <- data.frame(
  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"
  )
)

library(knitr)

kable(
  table,
  caption = "Table 1: Variable Types and Levels of Measurement for the Spaceship Titanic Dataset"
)

Table 1: Variable Types and Levels of Measurement for the Spaceship Titanic Dataset

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