# NOT RUN {
#produces an Rdata file containing previous runs of the design criterion
set.seed(123)
lhs_design <- lhs::maximinLHS(10,1)
criterion_response <- (lhs_design - 1)^2
file <- paste(tempdir(),"/gadget_infile.Rdata", sep="")
create_gadget_infile(lhs_design,criterion_response, filename = file)
message(sprintf("gadget_infile.Rdata saved to directory %s",tempdir()))
# }
Run the code above in your browser using DataLab