# Check flag assignments;
table(uci_spam$train,uci_spam$test)

# Perform quality check on whole data set
attach(uci_spam)
summary_table<-introduce(uci_spam)
View(summary_table)
# 4601 rows
# 0 missing values
# 61 variables

summary(uci_spam)
stargazer(uci_spam, type = "html", out = "spam_descriptive.htm")