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