# install and load packages install.packages("quanteda") library(quanteda) install.packages("readxl") library(readxl) install.packages("writexl") library(writexl) # load data set "export_abstracts" #calculate word count abstract.wordcount <- ntoken(data$abstract, remove_numbers = TRUE, remove_punct = TRUE) data$abstract.wordcount <- abstract.wordcount pls.wordcount <- ntoken(data$pls, remove_numbers = TRUE, remove_punct = TRUE) data$pls.wordcount <- pls.wordcount # Calculate the readability indices abstract.SMOG <- textstat_readability(data$abstract, measure = "SMOG", remove_hyphens = TRUE, min_sentence_length = 1, max_sentence_length = 10000, intermediate = FALSE) data$abstract.SMOG <- abstract.SMOG$SMOG pls.SMOG <- textstat_readability(data$pls, measure = "SMOG", remove_hyphens = TRUE, min_sentence_length = 1, max_sentence_length = 10000, intermediate = FALSE) data$pls.SMOG <- pls.SMOG$SMOG abstract.flesch <- textstat_readability(data$abstract, measure = "Flesch", remove_hyphens = TRUE, min_sentence_length = 1, max_sentence_length = 10000, intermediate = FALSE) data$abstract.flesch <- abstract.flesch$Flesch pls.flesch <- textstat_readability(data$pls, measure = "Flesch", remove_hyphens = TRUE, min_sentence_length = 1, max_sentence_length = 10000, intermediate = FALSE) data$pls.flesch <- pls.flesch$Flesch abstract.flesch.kincaid <- textstat_readability(data$abstract, measure = "Flesch.Kincaid", remove_hyphens = TRUE, min_sentence_length = 1, max_sentence_length = 10000, intermediate = FALSE) data$abstract.flesch.kincaid <- abstract.flesch.kincaid$Flesch.Kincaid pls.flesch.kincaid <- textstat_readability(data$pls, measure = "Flesch.Kincaid", remove_hyphens = TRUE, min_sentence_length = 1, max_sentence_length = 10000, intermediate = FALSE) data$pls.flesch.kincaid <- pls.flesch.kincaid$Flesch.Kincaid abstract.Dale.Chall <- textstat_readability(data$abstract, measure = "Dale.Chall", remove_hyphens = TRUE, min_sentence_length = 1, max_sentence_length = 10000, intermediate = FALSE) data$abstract.Dale.Chall <- abstract.Dale.Chall$Dale.Chall pls.Dale.Chall <- textstat_readability(data$pls, measure = "Dale.Chall", remove_hyphens = TRUE, min_sentence_length = 1, max_sentence_length = 10000, intermediate = FALSE) data$pls.Dale.Chall <- pls.Dale.Chall$Dale.Chall # save the final dataset