---
title: "Ask Chat GPT"
author: "Duncan Golicher"
date: "3/20/2023"
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(tidyverse)

library(chatgpt)

Sys.setenv(OPENAI_API_KEY = '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')
```

# Questions{.tabset}

## Why is biodiversity higher in the tropics?

```{r, echo=FALSE}
ask_chatgpt("Why is biodiversity higher in the tropics?") ->a

```

`r a`

## Evolutionary time

```{r, echo=FALSE}
ask_chatgpt("Explain why biodiversity is higher in the tropics using evolutionary time?") ->a

```

`r a`

## Rapaport's rule?

```{r, echo=FALSE}
ask_chatgpt("Why does Rapaort's rule explain tropical biodiversity?") ->a

```

`r a`

