Nothing
ReadMspFile <- function(file, skip = 2, comment.char = "") {
msp <- read.table(file = file, sep = ";", skip = skip, fill = TRUE,
stringsAsFactors = FALSE, comment.char = comment.char)
msp <- msp[-ncol(msp)]
# make tall
values <- NULL
for (i in 1:ncol(msp)) {
values <- c(values, msp[, i])
}
tall.format <- as.vector(values, mode = "character")
RemoveWhite <- function(x) {
y <- strsplit(x, split = "[[:space:]]")[[1]]
z <- y[y != ""]
return(as.numeric(z))
}
results.list <- lapply(tall.format, RemoveWhite)
result <- as.data.frame(do.call("rbind", results.list))
names(result) <- c("mz", "intensity")
result <- result[result$intensity != 0, ]
ordered.result <- result[order(result$mz), ]
row.names(ordered.result) <- 1:nrow(ordered.result)
return(ordered.result)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.