%div.card.bg-light
  %div.card-body
    %h6.card-title Model:
    Source:
    %a{:href=>model.source, :rel=>"external"}
      = model.source
    %br
    - model.classification? ? type = "Classification" : type = "Regression"
    = "Type:\t"
    = type
    %br
    = "Training compounds:\t"
    = data_entries.count/3
    %br
    = "Training dataset:\t"
    %a{:href=>"//#{ENV['VIRTUAL_HOST']}/predict/dataset/#{training_dataset.name}"}
      = training_dataset.name

%div.card.bg-light
  %div.card-body
    %h6.card-title Algorithms:
    %p.card-text
      Similarity:
      %a.card-link{:href=> "http://www.rubydoc.info/gems/lazar/OpenTox%2F#{model.model.algorithms["similarity"]["method"].sub("::", "%2F")}", :rel=>"external"}
        = model.model.algorithms["similarity"]["method"]
      = ", min: #{model.model.algorithms["similarity"]["min"]}"
      %br
      Prediction:
      - if model.model.algorithms["prediction"]["method"] !~ /Caret/
        %a.card-link{:href=>"http://www.rubydoc.info/gems/lazar/OpenTox%2F#{model.model.algorithms["prediction"]["method"].sub("::","%2f")}", :rel=>"external"}
          = model.model.algorithms["prediction"]["method"]
      - else
        %a.card-link{:href=>"http://www.rubydoc.info/gems/lazar/OpenTox/Algorithm/Caret", :rel=>"external"}
          = model.model.algorithms["prediction"]["method"]

      %br
      Descriptors:
      = model.model.algorithms["descriptors"]["method"]+","
      = model.model.algorithms["descriptors"]["type"]

%div.card.bg-light
  %div.card-body
    - if type == "Classification"
      %h6.card-title #{crossvalidations.size} independent 10-fold crossvalidations:
    - else
      %h6.card-title #{crossvalidations.size} independent 10-fold crossvalidations (-log10 transformed):
    - crossvalidations.each_with_index do |cv,idx|
      %p.card-text
        - if model.classification?
          / accuracy, confusion matrixes
          - accept_values = cv.accept_values
          - av = []
          - if accept_values[1] =~ /^non/
            - av << accept_values[0]
            - av << accept_values[1]
          - else
            - av = accept_values
          - keys = cv.accuracy.collect{|key, value| key}
          - acc = cv.accuracy.collect{|key, value| value.signif(3)}
          - tpr = cv.true_rate.collect{|key, hash| hash[av[0]].signif(3)}
          - fpr = cv.true_rate.collect{|key, hash| hash[av[1]].signif(3)}
          - pp = cv.predictivity.collect{|key, hash| hash[av[0]].signif(3)}
          - np = cv.predictivity.collect{|key, hash| hash[av[1]].signif(3)}
          %table.table.table-bordered.table-responsive.text-center.bg-white
            %tr
              %td.text-center.bg-light
                = "Nr.#{idx+1}"
              %td
                %a{:href=>"https://en.wikipedia.org/wiki/Accuracy_and_precision", :rel=>"external"}
                  Accuracy
              %td
                %a{:href=>"https://en.wikipedia.org/wiki/Sensitivity_and_specificity", :rel=>"external"}
                  True positive rate (Sensitivity, Recall)
              %td
                %a{:href=>"https://en.wikipedia.org/wiki/Sensitivity_and_specificity", :rel=>"external"}
                  True negative rate (Specificity)
              %td
                %a{:href=>"https://en.wikipedia.org/wiki/Positive_and_negative_predictive_values", :rel=>"external"}
                  Positive predictive value (Precision)
              %td
                %a{:href=>"https://en.wikipedia.org/wiki/Positive_and_negative_predictive_values", :rel=>"external"}
                  Negative predictive value
            - keys.each_with_index do |key,idx|
              %tr
                / keys
                %td.fit.text-right= key.gsub("_", " ")
                / acc,accuray value:
                %td= acc[idx]
                / tpr,true positive rate
                %td= tpr[idx]
                / fpr,false positive rate
                %td= fpr[idx]
                / pp,positive predictions
                %td= pp[idx]
                / np,negative predictions
                %td= np[idx]
          %div.row.justify-content-center
            %h6 Confusion matrix
          %div.row{:id=>"matrix#{model.id}#{idx}"}
            %table.table.table-borderless.table-responsive
              %tr
                %td.fit.text-center all
                %td.fit.text-center confidence high
                %td.fit.text-center confidence low
              %tr.justify-content-around
                / confusion matrix
                - keys.each do |key|
                  - matrix = cv.confusion_matrix[key]
                  %td
                    %table.table-sm.text-center
                      %tr
                        %td
                        %td
                        %td{:colspan=>"2"} measured
                        %td
                      %tr
                        %td
                        %td
                        %td.border.bg-secondary.text-white active
                        %td.border.bg-secondary.text-white inactive
                      %tr
                        %td.align-middle{:rowspan=>"2"} predicted
                        %td.border.bg-secondary.text-white active
                        %td.border.bg-white
                          %b= matrix[0][0]
                        %td.border.bg-white
                          = matrix[0][1]
                      %tr
                        //%td
                        %td.border.bg-secondary.text-white inactive
                        %td.border.bg-white
                          = matrix[1][0]
                        %td.border.bg-white
                          %b= matrix[1][1]
          %div.row.justify-content-center
            %h6 Probability plot
          %div.row
            %div.plot.mx-auto{:id=>"pplot#{model.id}#{idx}"}
              %img{:src=>"/#{cv.id}.png", :alt=>"#{cv.id}.png"}

        / regression
        - if model.regression?
          / rmse, mae, r_squared, pred nr, within intv, out intv
          - keys = cv.rmse.collect{|key, value| key}
          - rmse = cv.rmse.collect{|key, value| value.signif(3)}
          - mae = cv.mae.collect{|key, value| value.signif(3)}
          - rsq = cv.r_squared.collect{|key, value| value.signif(3)}
          - nrp = cv.nr_predictions.collect{|key,value| value}
          - wpi = cv.within_prediction_interval.collect{|key,value| value}
          - opi = cv.out_of_prediction_interval.collect{|key,value| value}
          %table.table.table-bordered.table-responsive.text-center.bg-white
            %tr
              %td.text-center.bg-light
                = "Nr.#{idx+1}"
              %td
                %a{:href=>"https://en.wikipedia.org/wiki/Root-mean-square_deviation", :rel=>"external"}
                  RMSE
              %td
                %a{:href=>"https://en.wikipedia.org/wiki/Mean_absolute_error", :rel=>"external"}
                  MAE
              %td
                %a{:href=>"https://en.wikipedia.org/wiki/Coefficient_of_determination", :rel=>"external"}= "R"+"<sup>2</sup>"
              %td Number of predictions
              %td Within prediction interval
              %td Out of prediction interval
            - keys.each_with_index do |key,idx|
              %tr
                / keys
                %td.fit.text-right= key.gsub("_", " ")
                / rsme:
                %td= rmse[idx]
                / mae:
                %td= mae[idx]
                / r_squared:
                %td= rsq[idx]
                / Predictions number:
                %td= nrp[idx]
                / Within prediction interval:
                %td= wpi[idx]
                / Out of prediction interval:
                %td= opi[idx]
          %div.row.justify-content-center
            %h6 Correlation plot
          %div.row
            %div.plot.mx-auto{:id=>"cplot#{model.id}#{idx}"}
              %img{:src=>"/#{cv.id}.png", :alt=>"#{cv.id}.png"}
        - unless idx == crossvalidations.size-1
          %hr

%div.card.bg-light
  %div.card-body
    %h6.card-title QMRF:
    %a.btn.btn-outline-info{:href=>"//#{ENV['VIRTUAL_HOST']}/predict/report/#{model.id}", :id=>"report#{model.id}", :style=>"font-size:small;"}
      %span.fa.fa-download
      XML
%br