basic package setup
diff --git a/R/make_request.R b/R/make_request.R
new file mode 100644
index 0000000..f6c135c
--- /dev/null
+++ b/R/make_request.R
@@ -0,0 +1,60 @@
+#' Make a test request to the GPT-3 API
+#'
+#' @description
+#' `gpt3.test_request()` sends a basic [completion request](https://beta.openai.com/docs/api-reference/completions) to the Open AI GPT-3 API.
+#' @param verbose (boolean) if TRUE prints the actual prompt and GPT-3 completion of the test request (default: FALSE).
+#' @return A message of success or failure of the connection.
+#' @examples
+#' gpt3.test_request()
+#' @export
+gpt3.make_request = function(prompt_
+ , model_ = 'text-davinci-002'
+ , output_type_ = 'string_only'
+ , suffix_ = NULL
+ , max_tokens_ = 256
+ , temperature_ = 0.9
+ , top_p_ = 1
+ , n_ = 1
+ , stream_ = F
+ , logprobs_ = NULL
+ , echo_ = F
+ , stop_ = NULL
+ , presence_penalty_ = 0
+ , frequency_penalty_ = 0
+ , best_of_ = 1
+ , logit_bias_ = NULL
+)
+{
+
+ parameter_list = list(prompt = prompt_
+ , model = model_
+ , suffix = suffix_
+ , max_tokens = max_tokens_
+ , temperature = temperature_
+ , top_p = top_p_
+ , n = n_
+ , stream = stream_
+ , logprobs = logprobs_
+ , echo = echo_
+ , stop = stop_
+ , presence_penalty = presence_penalty_
+ , frequency_penalty = frequency_penalty_
+ , best_of = best_of_
+ , logit_bias = logit_bias_
+ )
+
+ request_base = httr::POST(url = url.completions
+ , body = parameter_list
+ , httr::add_headers(Authorization = paste("Bearer", api_key))
+ , encode = "json")
+
+
+ if(output_type_ == 'string_only'){
+ output = httr::content(request_base)$choices[[1]]$text
+ } else {
+ output = httr::content(request_base)
+ }
+
+ return(output)
+
+}