Answered You can hire a professional tutor to get the answer.
## Denoising; 30 sec. Z1 - msDenoise(z) # default: FUN="wavelet" z1.mrd - msDenoise(z,FUN="mrd") z1.smooth - msDenoise(z,FUN="smooth") ##...
## Denoising; 30 sec. Z1 <- msDenoise(z) # default: FUN="wavelet" z1.mrd <- msDenoise(z,FUN="mrd") z1.smooth <- msDenoise(z,FUN="smooth") ## Visualize the denoising par(mfrow=c(1,1),cex=1.5) t <- z$mz > 1190 & z$mz < 1225 sub <- 5 plot(z1$mz[t],z1$intensity[t,sub],xlab="m/z",ylab="Intensity", type="l",col="darkred",lwd=2.5,lty=2,main="Denoising Options") points(z$mz[t],z$intensity[t,sub],pch=16,cex=1,col="black") lines(z$mz[t],z$intensity[t,sub],lty=1,col="black",lwd=2) lines(z1.smooth$mz[t],z1.smooth$intensity[t,sub],col="darkblue", lty=3,lwd=2.5) #lines(z1.mrd$mz[t],z1.mrd$intensity[t,sub],col="orange",lty=4, # lwd=2) legend(x=1190,y=10260,c("original","denoise Denoising What do options do?
