# dimensional of the inputs
dim_inputs <- 8
# number of the inputs
num_obs <- 30
# uniform samples of design
input <-matrix(runif(num_obs*dim_inputs), num_obs,dim_inputs)
# the Euclidean distance matrix
R0=euclidean_distance(input, input)
Run the code above in your browser using DataLab