basic package setup
diff --git a/R/make_embedding.R b/R/make_embedding.R
new file mode 100644
index 0000000..afdb610
--- /dev/null
+++ b/R/make_embedding.R
@@ -0,0 +1,19 @@
+gpt3.make_embedding = function(model_ = 'text-similarity-ada-001'
+ , input_){
+
+ parameter_list = list(model = model_
+ , input = input_)
+
+ request_base = httr::POST(url = url.embeddings
+ , body = parameter_list
+ , httr::add_headers(Authorization = paste("Bearer", api_key))
+ , encode = "json")
+
+
+ output_base = httr::content(request_base)
+
+ embedding_raw = toNumeric(unlist(output_base$data[[1]]$embedding))
+
+ return(embedding_raw)
+
+}