anchor.diff:              //fileDir + "Chlamy_Cp.fastA"
               fa
               |> Seq.map (fun fi -> fi.Sequence |> Array.filter (not << AminoAcids.isTerminator))
  -            |> Seq.collect digestTryptic
  -            |> Seq.map BioArray.toString
  +            |> Seq.map digestTryptic
  +            |> Seq.collect (fun dig -> dig |> Seq.map BioArray.toString |> Set.ofSeq |> Set.toSeq)
  +            |> Seq.countBy id
  +            |> Seq.filter (fun (key,count) -> count=1)
  +            |> Seq.map fst
               |> Set.ofSeq
   
           ///Returns a distinct set of peptides that map uniquely to a single protein from the given fasta file input
  
positive.code:                 |> Array.ofSeq
  
              let res = 
                  Array.map2 (fun (data:PredictionInput) preds -> createPredictionOutput data.ProtId data.Sequence (float preds)) data preds
              res
  
          ///Returns relative observability scores for uniquely mapping peptides of proteins of interest given a model, normalization procedure for features, and the proteome of the organism.
  
negative.code:         /// For expert use.
          /// Returns the observability prediction for the input peptides.
          /// Loads a trained CNTK model (either dppops plant/nonPlant models or a custom model) and evaluates the scores for the given collection of features (PredictionInput)
          /// No feature normalization is done.
          let scoreBy (model:Model) (distinctPeptideSet: Set<string>) (data:PredictionInput []) = 
              let device = DeviceDescriptor.CPUDevice
  
              let PeptidePredictor : Function = 
  