kmundnic

ENV["JULIA_ERROR_COLOR"] = :magenta
ENV["JULIA_WARN_COLOR"] = :yellow
ENV["JULIA_INFO_COLOR"] = :cyan

ENV["JULIA_STACKFRAME_LINEINFO_COLOR"] = :cyan
ENV["JULIA_STACKFRAME_FUNCTION_COLOR"] = :yellow
ENV["JULIA_EDITOR"] = "subl"

ENV["COLUMNS"] = 1000

kmundnic

#!/bin/bash

# Extract frames from the videos of the RECOLA data set. The images are then cropped to squares and resized to 50%.
# The script requires ffmpef and imagemagick installed.

for file in train_*.mp4
do
    echo $file
    DIR="frames_${file%.*}"
    mkdir $DIR

kmundnic

kmundnic

clear; close all; clc;

c = get(gca,'colororder');
close;

for i = 1:size(c,1)
    string = ['\definecolor{mycolor', num2str(i), '}{rgb}{',...
        num2str(c(i,1),'%.4f'), ',', num2str(c(i,2),'%.4f'), ',', num2str(c(i,2),'%.4f'), '}'];
    disp(string)
end

kmundnic

kmundnic

"HITId","HITTypeId","Title","Description","Keywords","Reward","CreationTime","MaxAssignments","RequesterAnnotation","AssignmentDurationInSeconds","AutoApprovalDelayInSeconds","Expiration","NumberOfSimilarHITs","LifetimeInSeconds","AssignmentId","WorkerId","AssignmentStatus","AcceptTime","SubmitTime","AutoApprovalTime","ApprovalTime","RejectionTime","RequesterFeedback","WorkTimeInSeconds","LifetimeApprovalRate","Last30DaysApprovalRate","Last7DaysApprovalRate","Input.ref_video_url","Input.a_video_url","Input.b_video_url","Input.ref_start","Input.ref_end","Input.a_start","Input.a_end","Input.b_start","Input.b_end","Answer.choice","Approve","Reject"
"37M4O367VIHEVXMPBF7RWV9Z67V5MD","36NY760EF6AYOI4600Z6OYSCAIPB36","Choose the image most similar in color intensity to the reference image","Choose the image most similar in color intensity to the reference image","color, comparison, triplet","$0.01","Fri Jul 27 15:36:29 PDT 2018","1","BatchId:201861;OriginalHitTemplateId:920937242;","300","259200","Fri Aug 03 15:36:2

kmundnic

function alpha=kriAlpha(data,scale)
% alpha=kriAlpha(data,scale)
%     calculates Krippendorff's Alpha as a measure of inter-rater agreement
%     data: rate matrix, each row is a rater or coder, each column is a case
%     scale: level of measurement, supported are 'nominal', 'ordinal', 'interval'
%     missing values have to be coded as NaN or inf

% For details about Krippendorff's Alpha see:
% http://en.wikipedia.org/wiki/Krippendorff%27s_Alpha
% Hayes, Andrew F. & Krippendorff, Klaus (2007). Answering the call for a

kmundnic

function ∇tSTE(X::Array{Float64,2},
               no_objects::Int64,
               no_dims::Int64,
               no_triplets::Int64,
               triplets::Array{Int64,2},
               λ::Float64,
               α::Float64)

    P::Float64 = 0.0
    C::Float64 = 0.0 + λ * sum(X.^2) # Initialize cost including l2 regularization cost

kmundnic

Variables:
  X::Array{Float64,2}
  no_objects::Int64
  no_dims::Int64
  no_triplets::Int64
  triplets::Array{Int64,2}
  λ::Float64
  α::Float64
  threadsfor_fun::getfield(Main.Embeddings, Symbol("##57#threadsfor_fun#7")){Array{Float64,2},Int64,Array{Int64,2},Array{Float64,1},Array{Float64,1},Array{Float64,2},Array{Float64,2},Array{Float64,2},Array{Float64,1},Array{Float64,1},Float64,Array{Int64,1},Array{Int64,1},Array{Int64,1},UnitRange{Int64}}
  P::Array{Float64,1}

kmundnic

function ∇tSTE(X::Array{Float64,2}, 
                   no_objects::Int64,
                   no_dims::Int64,
                   no_triplets::Int64,
                   triplets::Array{Int64,2},
                   λ::Float64,
                   α::Float64;
                   use_log = true::Bool)::Tuple{Float64,Array{Float64,2}}

    P = 0.0::Float64