anchor.diff:         | _ -> None
   
   let obtener_prediccion_profesor periodo parcial nombre apellidos =
  -    Sql.GetDataContext().Procedures.GruposProfesor.Invoke(periodo, parcial, nombre, apellidos).ResultSet
  +    ctx.Procedures.GruposProfesor.Invoke(periodo, parcial, nombre, apellidos).ResultSet
           |> Seq.toList
           |> List.map (fun r -> (*r.ColumnValues |> Seq.map fst
                                                |> Seq.iter (printfn "%A")*)
  
positive.code: let ctx = Sql.GetDataContext()
  
  let obtener_datos periodoInicial periodoFinal codigo =
      Sql.GetDataContext().Procedures.DatosEntrenamiento.Invoke(periodoInicial, periodoFinal, codigo).ResultSet
          |> Seq.map (fun r -> r.MapTo<Kardex>())
          |> Seq.distinctBy (fun k -> (k.Matricula, k.Materia))
          |> Seq.toList
  
  let obtener_datos_prediccion periodoInicial periodoFinal periodoPrediccion codigo =
      Sql.GetDataContext().Procedures.DatosPrediccion.Invoke(periodoInicial, periodoFinal, periodoPrediccion, codigo).ResultSet
          |> Seq.map (fun r -> r.MapTo<Kardex>())
          |> Seq.distinctBy (fun k -> (k.Matricula, k.Materia))
          |> Seq.toList
  
  let obtener_clave_profesor (grupo : string) =
      match query {for A in Sql.GetDataContext().Intranet.Grupos do
                   where (A.Grupo = grupo)
                   select A.Profesor}
                  |> Seq.toList with
  
negative.code: 
  
  let rec actualiza_modelo_nominal materia periodoInicial periodoFinal parcial aid clase continuo rutaMaterias atributos matrizConfusion precision numeroInstancias correctas modelo instancias =
      let guarda () = 
          printfn "Guardando modelo construido por: %s" clase
          let registro = ctx.Intranet.ModelosNominales.Create()
  