data("data_tuto")
mat_ld <- data_tuto[[2]][1:10, 1:10] * 1000
mat_euc <- data_tuto[[1]][1:10, 1:10] * 50000
to_convert <- c(30000, 40000)
res <- convert_cd(mat_euc = mat_euc,
mat_ld = mat_ld,
to_convert = to_convert, fig = FALSE)
Run the code above in your browser using DataLab