resetEnv()#clean up previous data from the package environment
results<-mrbin(silent=TRUE,setDefault=TRUE,parameters=list(dimension="1D",
binwidth1D=0.05,PQNScaling="No",PCA="No",logTrafo="No",
noiseRemoval="No",NMRvendor="mrbin",
example=TRUE,#only used for the package examples
NMRfolders=c(system.file("extdata/1.mr1",package="mrbin"),
system.file("extdata/2.mr1",package="mrbin"),
system.file("extdata/3.mr1",package="mrbin"))))
results<-removeSpectrum(results,
spectra=c(system.file("extdata/2.mr1",package="mrbin")))
Run the code above in your browser using DataLab