anchor.diff:  
   runTeacher 0.0
   
  -//submission <- data.frame(id=test$id,relevance=test_relevance)
  -//write_csv(submission,"benchmark_submission.csv")
  -//print(Sys.time()-t)
  +let testOutput = regression.Compute(testInput)
  +let submission = 
  +    Seq.zip test.Rows testOutput
  +    |> Seq.map(fun (r,o) -> r.Id, o)
  +
  +
  +
  +
  
positive.code: ﻿
  #r "../packages/FSharp.Data.2.2.5/lib/net40/FSharp.Data.dll"
  #r "../packages/Accord.Statistics.3.0.2/lib/net40/Accord.Statistics.dll"
  
  open FSharp.Data
  open Accord.Statistics
  open Accord.Statistics.Links
  open Accord.Statistics.Models.Regression
  
negative.code: 
  [<Literal>]
  let trainDataPath = "../data/train.csv"
  type Train = CsvProvider<trainDataPath>
  let train = Train.GetSample()
  
  [<Literal>]
  let testDataPath = "../data/test.csv"
  type Test = CsvProvider<testDataPath>
  let test = Test.GetSample()
  
  [<Literal>]
  let productDescriptionsPath = "../data/product_descriptions.csv"
  type Products = CsvProvider<productDescriptionsPath>
  let products = Products.GetSample()
  
  let productDescription uid = 
      let pd = 
          products.Rows 
          |> Seq.tryFind(fun pd -> pd.Product_uid = uid)
      if pd.IsSome then
          Some pd.Value.Product_description
      else None
  
  let wordMatch (words:string) title (desc:option<string>) =
      let words' = words.Split(' ')
  