# 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