resetEnv()#clean up previous data from the package environment
results<-mrbin(silent=TRUE,setDefault=TRUE,parameters=list(dimension="1D",
binwidth1D=0.05,noiseRemoval="No",PQNScaling="No",
fixNegatives="No",logTrafo="No",PCA="No",verbose=TRUE,
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<-removeNoise(results)
Run the code above in your browser using DataLab