## Get the data of interest and get the acLHS sample indices
data(ex_data_2D)
input2D <- ex_data_2D
aclhs_sam <- aclhs(df=input2D, num_samples=50, weights=c(1,1,1), iter=100)
## Set plotting parameters
p_params <- aclhs.plot_params(file_name=tempfile(fileext=".png"),
xlab=expression(bold("X [km]")),
ylab=expression(bold("Y [km]")))
## Create plot
aclhs.plot_sampling_distribution(df=input2D, aclhs_samples=aclhs_sam,
plot_params=p_params)
Run the code above in your browser using DataLab