Though suicide attempts and hospitalizations were thankfully rare, they were more common for teens reporting ⬆️ stress in the 1st ESM week
Though suicide attempts and hospitalizations were thankfully rare, they were more common for teens reporting ⬆️ stress in the 1st ESM week
-Spending more time alone
-Worse/more stress
-Spending more time alone
-Worse/more stress
Increasing % of suicide risk / all mental health visits by year x state.
Increasing % of suicide risk / all mental health visits by year x state.
library(tidytext)
library(readtext)
library(openxlsx)
library(tidytext)
library(readtext)
library(openxlsx)
doc <- as_tibble(readtext("Grant.docx")$text)
df <- unnest_tokens(doc,"sentences",out,value)
df <- df %>% filter(str_detect(df$out,nsf))
df$replace <- str_match(df$out,nsf)
write.xlsx(df,"check.xlsx")
doc <- as_tibble(readtext("Grant.docx")$text)
df <- unnest_tokens(doc,"sentences",out,value)
df <- df %>% filter(str_detect(df$out,nsf))
df$replace <- str_match(df$out,nsf)
write.xlsx(df,"check.xlsx")