Create a gist now

Instantly share code, notes, and snippets.

Embed
What would you like to do?
# remove all but block borders
borders1 <- which(df$Mark == 1)
borders9 <- which(df$Mark == 9)
borders10 <- which(df$Mark == 10)
df[borders1,] <- 0
df[borders9,] <- 0
df[borders10,] <- 0
# block borders
block_borders <- which(df$Mark == 2)
# plot the cleaned signal
plot(df$CH1.703.6., type = "l", ylab = "Intensity")
abline(v = block_borders, col = "blue")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment