@@ -6,6 +6,8 @@ setMethod("psms",

           signature=c("mzRident"),

           function(object) {

               psms <- object@backend$getPsmInfo()

+              specpars <- object@backend$getSpecParams()

+              psms <- merge(psms, specpars, by="spectrumID", sort=FALSE)

               psms$acquisitionNum <-

                   as.numeric(sub("^.*=([[:digit:]]+)$", "\\1", psms$spectrumID))

               return(psms)

@@ -15,6 +17,10 @@ setMethod("score",

           signature=c("mzRident"),

           function(x) return(x@backend$getScore()))

+setMethod("specParams",

+          signature=c("mzRident"),

+          function(object) return(object@backend$getSpecParams()))

+          

 setMethod("para",

           signature=c("mzRident"),

           function(object) return(object@backend$getPara()))          

@@ -17,5 +17,6 @@ RCPP_MODULE(Ident)

     .method( "getScore", &RcppIdent::getScore, "Scoring information about this mzid files" )

     .method( "getPara", &RcppIdent::getPara, "Parameters used in identification." )

     .method( "getDB", &RcppIdent::getDB, "Database used in identification." )

+    .method( "getSpecParams", &RcppIdent::getSpecParams, "SpectrumIdentificationResult cvParams" )

     ;

 }