README.Rmd

---
output: github_document
---

<!-- README.md is generated from README.Rmd. Please edit that file -->

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)
```

# gptzeror <img src="man/figures/logo.png" align="right" height="138" />

<!-- badges: start -->
[![Lifecycle: experimental](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://lifecycle.r-lib.org/articles/stages.html#experimental)
[![R-CMD-check](https://github.com/christopherkenny/GPTZeroR/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/christopherkenny/GPTZeroR/actions/workflows/R-CMD-check.yaml)
<!-- badges: end -->

`gptzeror` provides an R interface to [GPTZero API](https://gptzero.me/). GPTZero predicts if text was generated by "AI" like ChatGPT. It splits documents by paragraph and sentence, allowing for detection when text is partially written by "AI" and partially by humans.

## Installation

You can install the development version of `gptzeror` from [GitHub](https://github.com/) with:

``` r
# install.packages('remotes')
remotes::install_github('christopherkenny/gptzeror')
```

## Example

Below is an example using the abstract of [Kenny, McCartan, Simko, Kuriwaki, and Imai (2023)](https://arxiv.org/abs/2208.06968).

```{r}
abstr <- 'Congressional district lines in many U.S. states are drawn by partisan actors, raising concerns about gerrymandering. To separate the partisan effects of redistricting from the effects of other factors including geography and redistricting rules, we compare possible party compositions of the U.S. House under the enacted plan to those under a set of alternative simulated plans that serve as a non-partisan baseline. We find that partisan gerrymandering is widespread in the 2020 redistricting cycle, but most of the electoral bias it creates cancels at the national level, giving Republicans two additional seats on average. Geography and redistricting rules separately contribute a moderate pro-Republican bias. Finally, we find that partisan gerrymandering reduces electoral competition and makes the partisan composition of the U.S. House less responsive to shifts in the national vote.'
```

We can pass text directly via `gptzero_predict_text()`.

```{r example}
library(gptzeror)
gptzero_predict_text(abstr)
```

The API also accepts common file types as uploads, including `.txt`, `.docx`, and `.pdf`. To access this endpoint, use `gptzero_predict_file()`.

```{r}
temp_file <- tempfile(fileext = '.txt')
cat(abstr, file = temp_file)

gptzero_predict_file(temp_file)
```

## Additional Information

Documentation for the [GPTZero API is available here](https://gptzero.me/docs).