model_error <- augment(x = scurve_model_obj, highd_data = scurve)
comb_all_data_model_error(highd_data = scurve, nldr_data = scurve_umap,
model_highd = scurve_model_obj$model_highd, model_2d = scurve_model_obj$model_2d,
error_data = model_error)
Run the code above in your browser using DataLab