if (FALSE) {
if (length(grep("Windows", utils::sessionInfo()$running))==1) {
x <- InterpretMSSpectrum::apci_spectrum
write.table(x, "clipboard", sep="\t", row.names=FALSE)
InterpretMSSpectrum::ReadSpecClipboard()
}
}
Run the code above in your browser using DataLab