# Clean parameter values
params <- c(0.01, 0.012, 0.011, 0.1, 0.009, 0.011, 0.15)
clean_params <- clean_data(params)
# Clean multiple parameter columns
param_table <- data.frame(
k0 = runif(100),
cooling_rate = runif(100),
c_repulsion = runif(100)
)
clean_table <- as.data.frame(lapply(param_table, clean_data))
Run the code above in your browser using DataLab