results<-mrbin(silent=TRUE,setDefault=TRUE,parameters=list(dimension="1D",
binwidth1D=0.05,PQNScaling="No",PCA="No",tryParallel=TRUE,logTrafo="No",
noiseRemoval="No",
NMRfolders=c(system.file("extdata/1/10/pdata/10",package="mrbin"),
system.file("extdata/2/10/pdata/10",package="mrbin"),
system.file("extdata/3/10/pdata/10",package="mrbin"))))
results<-removeSpectrum(results,
spectra=c(system.file("extdata/2/10/pdata/10",package="mrbin")))
Run the code above in your browser using DataLab