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:     let numberInDescription =
          if desc.IsNone then 0
          else uniqueWords |> Seq.filter(fun w -> w = desc.Value) |> Seq.length
      numberInTitle,numberOfWords,numberInDescription
  
  //2, 100001, "Simpson Strong-Tie 12-Gauge Angle", "angle bracket", 3M
  
  
  let trainInput = 
      train 
      |> Seq.map(fun w -> wordMatch w.phrase w.title w.description)
      |> Seq.map(fun (t,w,d) -> [|(float)t;(float)w;(float)d|])
      |> Seq.toArray
  
  let trainOutput = 
      train
      |> Seq.map(fun t -> t.relivance)
      |> Seq.toArray
  
  let testInput = 
      test 
      |> Seq.map(fun w -> wordMatch w.phrase w.title w.description)
      |> Seq.map(fun (t,w,d) -> [|(float)t;(float)w;(float)d|])
      |> Seq.toArray
  
  //glm_model <- glm(relevance~nmatch_title+nmatch_desc+nwords,data=train)
  //test_relevance <- predict(glm_model,test)
  //test_relevance <- ifelse(test_relevance>3,3,test_relevance)
  //test_relevance <- ifelse(test_relevance<1,1,test_relevance)
  let regression = new GeneralizedLinearRegression(new ProbitLinkFunction(), 3)
  let teacher = new IterativeReweightedLeastSquares(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(' ')
  