:- module(r_exp,
	  []).

:- use_module(library(real)).
:- use_module(library(tag_concept)).
:- use_module(library(video_annotation)).
:- use_module(library(stop_words)).

%v_compare(V1, V2) :-
%	video_gtaa_vector(V1, L1),
%	video_gtaa_vector(V2, L2),
%	r_lib(lsa),
%	v1 <- L1,
%	v2 <- L2,
%	cosine(v1, v2).

video_gtaa_vector(V, Vector) :-
	rdf_equal(gtaa:'OnderwerpenBenG', Scheme),
	video_tags(V, Tags),
	remove_stop_words(Tags, dutch, Tags1),
	derived_concepts(Tags1, tag_concept(exact), Scheme, Cs0),
	sort(Cs0, Cs),
	gtaa_vector(Cs, Scheme, Vector).


gtaa_vector(Concepts, Scheme, Vector) :-
	findall(C, rdf(C, skos:inScheme, Scheme), Cs0),
	sort(Cs0, Cs),
	list_to_vector(Concepts, Cs, Vector).

list_to_vector([], [], []).
list_to_vector([H|T1], [H|T2], [1|V]) :-
	!,
	list_to_vector(T1, T2, V).
list_to_vector(T1, [_|T2], [0|V]) :-
	list_to_vector(T1, T2, V).

rtest :-
	r_open,
	y <- rnorm(50),
	r_print( y ),
	x <- rnorm(y),
	r_in( x11(width=5,height=3.5) ),
	r_in( plot(x,y) ),
	write( 'Press Return to continue...' ), nl,
	read_line_to_codes( user_input, _ ),
	r_print( 'dev.off()' ),
	r_close.


pr_test :-
	r_open,
	r_lib(igraph),
	g <- 'random.graph.game'(20, 5/20, directed='TRUE'),
	r_print( g ),
	r_in( 'page.rank'(g) ),
	r_close.