General
PromptBeginner5 minmarkdown
num_cols <- names(df)[sapply(df
is.numeric)]
0
Explore
Find agent skills by outcome
143,127 skills indexed with the new KISS metadata standard.
Showing 24 of 143,127
General
PromptBeginner5 minmarkdown
pct_na <- round(cols_with_na[col] / n_row * 100
1)
0
General
PromptBeginner5 minmarkdown
cat(sprintf( Columns with NAs: %d of %d\n\n
length(cols_with_na)
0
General
PromptBeginner5 minmarkdown
bar <- paste0(rep(█
bar_len)
0
General
PromptBeginner5 minmarkdown
na_counts <- sapply(df
function(x) sum(is.na(x)))
0
General
PromptBeginner5 minmarkdown
na_flag <- if (n_na == 0) " else sprintf( *** %d NAs (%.1f%%)
n_na
0
General
PromptBeginner5 minmarkdown
col
cls
0
General
PromptBeginner5 minmarkdown
cat(sprintf( Rows: %d Columns: %d\n
n_row
0
General
PromptBeginner5 minmarkdown
pct <- round(n_na / n_row * 100
1)
0
Data
PromptBeginner5 minmarkdown
check_data <- function(df
top_n_levels = 8) {
0
General
PromptBeginner5 minmarkdown
# png(figure1_distributions.png
width = 1200
0
Data
PromptBeginner5 minmarkdown
# saveRDS(df
data_clean.rds)
0
General
PromptBeginner5 minmarkdown
par(mfrow = c(1
1))
0
Writing & Content
PromptBeginner5 minmarkdown
# write.csv(df
data_clean.csv
0
General
PromptBeginner5 minmarkdown
par(mfrow = c(2
2))
0
Data
PromptBeginner5 minmarkdown
# fit_aov <- aov(outcome_var ~ group_var
data = df)
0
General
PromptBeginner5 minmarkdown
# lmtest::coeftest(fit
vcov = sandwich::vcovHC(fit
0
General
PromptBeginner5 minmarkdown
par(mfrow = c(1
1))
0
Data
PromptBeginner5 minmarkdown
t.test(outcome_var ~ group_var
data = df)
0
General
PromptBeginner5 minmarkdown
col = hcl.colors(20
RdBu
0
General
PromptBeginner5 minmarkdown
col = red
lwd = 2)
0
General
PromptBeginner5 minmarkdown
cor_mat <- cor(df[num_cols]
use = complete.obs)
0
Data
PromptBeginner5 minmarkdown
abline(lm(outcome_var ~ predictor
data = df)
0
General
PromptBeginner5 minmarkdown
col = adjustcolor(steelblue
alpha.f = 0.5)
0