prompt <- "This is a prompt"
app_price <- approximate_price_gpt(
data = filges2015_dat[1:2,],
prompt = prompt,
studyid = studyid,
title = title,
abstract = abstract,
model = c("gpt-4o-mini", "gpt-4"),
reps = c(10, 1)
)
app_price
app_price$price_dollar
app_price$price_data
Run the code above in your browser using DataLab