Skip to content

Instantly share code, notes, and snippets.

@meowcat

meowcat/splash.R Secret

Created October 30, 2023 11:56
Show Gist options
  • Save meowcat/e88b6031ef52cc036576669c1330605f to your computer and use it in GitHub Desktop.
Save meowcat/e88b6031ef52cc036576669c1330605f to your computer and use it in GitHub Desktop.
library(RMassBank)
peaks <- matrix(c(44.998, 80.0261, 93.0321, 108.0227, 0.2, 0.1, 0.4, 0.3), ncol=2)
RMassBank:::getSplash(peaks)
# [1] "splash10-0006-9300000000-5cd70311703e2423a1c5"
peaks2 <- peaks
peaks2[,2] <- peaks[,2] * 1000
RMassBank:::getSplash(peaks2)
# [1] "splash10-052f-9300000000-5cd70311703e2423a1c5"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment