# NOT RUN {
population <- tibble::tibble(
Metadata_Well = c("A01", "A02", "B01", "B02"),
AreaShape_Area_DNA = c(10, 12, 7, 7),
AreaShape_Length_DNA = c(2, 3, 1, 5),
Intensity_DNA = c(8, 20, 12, 32),
Texture_DNA = c(5, 2, 43, 13)
)
variables <- c("AreaShape_Area_DNA", "AreaShape_Length_DNA", "Intensity_DNA", "Texture_DNA")
sparse_random_projection(population, variables, 2)
# }
Run the code above in your browser using DataLab