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)
+
+}