day2_hw

Summary Statistics

df <- read.csv("~/Downloads/train (1).csv")
library(kableExtra)

var_table <- data.frame(
  "Variable Name" = c(
    "PassengerId",
    "HomePlanet",
    "CryoSleep",
    "Cabin",
    "Destination",
    "Age",
    "VIP",
    "RoomService",
    "FoodCourt",
    "ShoppingMall",
    "Spa",
    "VRDeck",
    "Name",
    "Transported"
  ),
  "Type of Variable" = c(
    "Qualitative",
    "Qualitative",
    "Qualitative",
    "Qualitative",
    "Qualitative",
    "Quantitative",
    "Qualitative",
    "Quantitative",
    "Quantitative",
    "Quantitative",
    "Quantitative",
    "Quantitative",
    "Qualitative",
    "Qualitative"
  ),
  "Level of Measurement" = c(
    "Nominal",
    "Nominal",
    "Nominal",
    "Nominal",
    "Nominal",
    "Ratio",
    "Nominal",
    "Ratio",
    "Ratio",
    "Ratio",
    "Ratio",
    "Ratio",
    "Nominal",
    "Nominal"
  )
)

knitr::kable(var_table, caption = "Variable Summary")

Variable Summary

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