extract_1tail <- function(txt){
# search for "one-sided"/"one-tailed"/"directional" in full text to detect one-sided testing
onesided <-
gregexpr("one.?sided|one.?tailed|directional", txt, ignore.case = TRUE)[[1]]
if (onesided[1] != -1) {
onesided <- 1
} else {
onesided <- 0
}
OneTailedInTxt <- as.logical(onesided)
return(OneTailedInTxt)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.