| # 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