<commit_before>#!/usr/bin/env Rscript
args <- commandArgs(trailingOnly=TRUE)

if (length(args)!=1) {
  cat("jsperinst YYYY-MM\n")
  return(NA)
}
period <- args

source("r/simpletemplate.r")
source("r/dbtools.r")


db <- "thomas"
dba <- "thomas_sgelogs"

# Get table of institutions.
query <- "select inst_id from thomas.institutes"
insts <- dbquery(db, query)

results <- data.frame(inst = character(), single=numeric(0), optimal=numeric(0), big=numeric(0))<commit_msg>Fix error<commit_after>#!/usr/bin/env Rscript
args <- commandArgs(trailingOnly=TRUE)

if (length(args)!=1) {
  cat("time-by-cost-by-inst YYYY-MM\n")
  return(NA)
}
period <- args

source("r/simpletemplate.r")
source("r/dbtools.r")


db <- "thomas"
dba <- "thomas_sgelogs"

# Get table of institutions.
query <- "select inst_id from thomas.institutes"
insts <- dbquery(db, query)

results <- data.frame(inst = character(), single=numeric(0), optimal=numeric(0), big=numeric(0))
{'fraction_non_alphanumeric': 0.17989417989417988, 'fraction_numerical': 0.008465608465608466, 'mean_word_length': 5.142857142857143, 'pattern_counts': {'":': 0, '<': 17, '<?xml version=': 0, '>': 3, 'https://': 0, '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}}
{'dir': 'git-commits-cleaned', 'id': '4004954', 'n_tokens_mistral': 374, 'n_tokens_neox': 353, 'n_words': 70}