results<-mrbin(silent=TRUE,
parameters=list(verbose=TRUE,dimension="1D",PQNScaling="No",
binwidth1D=0.04,signal_to_noise1D=1,PCA="No",binRegion=c(9.5,0.5,10,156),
saveFiles="No",referenceScaling="No",noiseRemoval="No",
fixNegatives="No",logTrafo="No",noiseThreshold=.05,tryParallel=TRUE,
NMRfolders=c(system.file("extdata/2/10/pdata/10",package="mrbin"),
system.file("extdata/3/10/pdata/10",package="mrbin"))
))
results<-setNoiseLevels(results,plotOnly=TRUE)
Run the code above in your browser using DataLab