<jupyter_start><jupyter_text><jupyter_code>library(tidyverse)
data <- read_csv("https://raw.githubusercontent.com/WriterTyper/hypotheses-steps/main/personality.csv")
data %>% names()
data %>%
 count(Type)
data %>%
  summarize(mean_resp = mean(Serum_Cholesterol_Level, na.rm = TRUE))
data %>% 
  group_by(Type) %>% 
  summarize(mean_resp = mean(Serum_Cholesterol_Level, na.rm = TRUE))
qplot(data$Type, data$Serum_Cholesterol_Level, fill = data$Type, geom = "boxplot") +theme_bw()
t.test(Serum_Cholesterol_Level ~ Type, data = data)
245.05 - 204.10<jupyter_output><empty_output><jupyter_text>This means that we may expect to find a difference equal to or larger than 40.95, 11 times out of 10000.<jupyter_code>qplot(Serum_Cholesterol_Level, fill = Type, color = Type, data = data, alpha = 0.1, geom = "density")<jupyter_output><empty_output>
{'fraction_non_alphanumeric': 0.13825983313468415, 'fraction_numerical': 0.027413587604290822, 'mean_word_length': 6.636363636363637, 'pattern_counts': {'":': 0, '<': 10, '<?xml version=': 0, '>': 14, 'https://': 1, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'chain_length': '2', 'dir': 'jupyter-structured-clean-dedup', 'id': '302282', 'license': 'CC0-1.0', 'n_tokens_mistral': 339, 'n_tokens_neox': 301, 'n_words': 61, 'path': 'Hypotheses.ipynb', 'repo_name': 'WriterTyper/hypotheses-steps', 'size': '839'}