# NOT RUN {
df <- data.frame(V1=runif(10, 0,1), V2=runif(10, 0,5), V3=runif(10, 0,30))
data_with_colors <- data2cielab(df, Wb=1.2, S=1.6)
data_with_colors <- data2cielab(df, LAB_coordinates = TRUE)
# }
Run the code above in your browser using DataLab