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