====== Slovenija 2023 / Tretji poskus ======
* [[..:ostro|Oštro]]; [[vlado:work:tra:ostro:slo1|Prvi poskus]]; [[vlado:work:tra:ostro:slo2|Drugi poskus]]; [[vlado:work:tra:ostro:slo4|Četrti poskus]]
===== Vzporedni istovrstni dogodki =====
23. januar 2024
V prejšnjem poskusu smo ugotovili, da lahko vzporedni istovrstni dogodki močno povečajo podobnost med osebama. Ena od možnosti, kako zmanjšati ta vpliv je, da vzporedne istovrstne dogodke med osebama štejemo le enkrat. To lahko naredimo tako, da za vsako četverico (u, v, rel, test) ustvarimo pripadajočo množico časovnih intervalov in izračunamo njeno unijo, ki jo uporabimo za določitev povezav. Učinkovit postopek dobimo, če podatke uredimo glede na (u, v, rel, test, s, f).
{{vlado:work:pics:intunion.png?600}}
> u <- c(1,2,3,7,8,10,14,15,17)
> v <- c(5,4,6,11,9,12,15,17,19)
> y <- c(1,2,3,1,2,3,1,2,1)
> N <- data.frame(s=u,f=v,y=y)
> N
s f y
1 1 5 1
2 2 4 2
3 3 6 3
4 7 11 1
5 8 9 2
6 10 12 3
7 14 15 1
8 15 17 2
9 17 19 1
> k <- nrow(N)
> i <- 1; s <- N$s[i]; f <- N$f[i]; L <- list()
> while(if) f <- N$f[i]
+ } else {
+ L[[length(L)+1]] <- c(s,f)
+ s <- N$s[i]; f <- N$f[i]
+ }
+ }
> L[[length(L)+1]] <- c(s,f)
> L
[[1]]
[1] 1 12
[[2]]
[1] 14 19
> U <- intUnion(N)
> plot(c(0,20),c(0,20),xaxp=c(1,20,19),type="n")
> for(i in 1:nrow(N)) lines(c(N$s[i],N$f[i]+1),c(N$y[i],N$y[i]),lw=8,lend=1)
> for(i in 1:nrow(U)) lines(c(U$s[i],U$f[i]+1),c(0,0),col="red",lw=8,lend=1)
===== Izpopolnjeni trajectoR =====
V zbirki funkcij trajectoR je bilo narejenih nekaj sprememb
* upošteva se samo pare z različnimi imeni - omrežje nima zank
* v rezultatih so pari urejeni (u < v)
* istovrstne vzporedne povezave se štejejo samo enkrat
# trajectoR / version 3
# Vladimir Batagelj, December 2023 / January 2024
# Network of time interval intersections / equal part_of_cv and institution_si
# different units; union of intervals
datum <- function(d,m,y) {
dd <- ifelse(d!="",d,ifelse(is.na(m),paste("01/01/",y,sep=""),
paste("01/",m,"/",y,sep="")))
di <- as.integer(as.Date(dd,format="%d/%m/%Y",origin="1970-01-01"))
if(is.na(di)) {OK <<- FALSE
di <- as.integer(as.Date(dd,format="%m/%d/%Y",origin="1970-01-01"))}
return(di)
}
raw2events <- function(D,CSV="events.csv"){
csv <- file(CSV,"w",encoding="UTF-8")
cat("R ID s f S T\n",file=csv)
n <- nrow(D); OK <- TRUE
for(i in 1:n){
ID <- trimws(D$person_name[i]); rel <- trimws(tolower(D$part_of_cv[i]))
test <- trimws(tolower(D$institution_si[i]))
ds <- D$start_day[i]; ms <- D$start_month[i]; ys <- D$start_year[i]
sd <- datum(ds,ms,ys)
if(!OK) {cat(i,":",ID,ds,ms,ys,rel,'*** wrong date\n')
flush.console(); OK <- TRUE}
de <- D$end_day[i]; me <- D$end_month[i]; ye <- D$end_year[i]
ed <- if(ye==2100) datum("01/01/2024",NA,2024) else datum(de,me,ye)
if(!OK) {cat(i,":",ID,de,me,ye,rel,'*** wrong date\n')
flush.console(); OK <- TRUE}
cat(i,' "',ID,'" ',sd,' ',ed,' "',rel,'" "',test,'"\n',sep='',file=csv)
}
close(csv)
}
intUnion <- function(N){
k <- nrow(N); z <- rep(0,k); L <- data.frame(s=z,f=z)
i <- 1; r <- 0; s <- N$s[i]; f <- N$f[i]
while(if) f <- N$f[i]
} else { r <- r+1; L[r,] <- list(s=s,f=f); s <- N$s[i]; f <- N$f[i] }
}
r <- r+1; L[r,] <- list(s=s,f=f)
return(L[1:r,])
}
traj2Pajek <- function(E,kMax,Net){
I <- order(E$s,E$f)
n <- length(I); k <- 0; r <- 0; sent <- "?????"
cn <- rep(0,kMax); cs <- rep("",kMax)
N <- data.frame(u=cs,v=cs,s=cn,f=cn,rel=cs,test=cs)
cat("% traj2Pajek",date(),"\nevents",n,"\n")
for(p in 1:(n-1)){i <- I[p]; tm <- E$f[i]
cat("."); if(p%%50==0) {cat(p,k,date(),"\n")}; flush.console()
for(q in (p+1):n){j <- I[q]; r <- r+1
if(E$s[j]>tm) break
uID <- E$ID[i]; vID <- E$ID[j]
if(uID!=vID) {
if(uID > vID) {vID <- E$ID[i]; uID <- E$ID[j]}
if(E$S[i]==E$S[j]) if(E$T[i]==E$T[j]) {
fm <- min(E$f[i],E$f[j]); sM <- max(E$s[i],E$s[j]); T <- fm-sM+1
if(T>0){k <- k+1; if(k>kMax) stop("kMax too small")
N[k,] <- list(u=uID,v=vID,s=sM,f=fm,rel=E$S[i],test=E$T[i])}
}
}
}
}
cat("\n",date(),"\ndensity R =",2*r/n/(n-1)," tests =",r,
"\ndensity E =",2*k/n/(n-1)," edges =",k,"\n"); flush.console()
N <- N[1:k,]; I <- order(N$u,N$v,N$rel,N$test,N$s,N$f); N <- N[I,]
N[k+1,] <- list(u=sent,v=sent,s=0,f=0,rel="",test="")
cn <- rep(0,k); cs <- rep("",k); r <- 0; q <- 0; k <- k+1
M <- data.frame(u=cs,v=cs,s=cn,f=cn,rel=cs,test=cs)
Q <- data.frame(s=cn,f=cn); i <- 1; H <- N[i,c("u","v","rel","test")]
for(p in 1:k){
G <- N[p,c("u","v","rel","test")]
if(all(H==G)) {q <- q+1; Q[q,] <- list(s=N$s[p],f=N$f[p])} else {
L <- intUnion(Q[1:q,])
for(h in 1:nrow(L)){ r <- r+1
M[r,] <- list(u=H$u,v=H$v,s=L$s[h],f=L$f[h],rel=H$rel,test=H$test)
}
if(p==k) break
H <- G; i <- p; q <- 0
}
}
M <- M[1:r,]; sf <- as.matrix(M[,c("s","f")])
cat("density E' =",2*r/n/(n-1)," edges' =",r,"\n"); flush.console()
uvrwt2net(M$u,M$v,w=M$f-M$s+1,r=M$rel,t=sf,directed=FALSE,Net=Net)
cat("% finished",date(),"\n")
}
explain <- function(E,p1,p2,kMax=500){
i12 <- c(which(E$ID == p1),which(E$ID == p2))
C <- E[i12,]; n <- nrow(C); I <- order(C$s,C$f); k <- 0; r <- 0
cn <- rep(0,kMax); cs <- rep("",kMax); sent <- "?????"
N <- data.frame(u=cs,v=cs,s=cn,f=cn,d=cn,rel=cs,test=cs,Ru=cs,Rv=cs)
for(p in 1:(n-1)){i <- I[p]; tm <- C$f[i]
for(q in (p+1):n){j <- I[q]; r <- r+1
if(C$s[j]>tm) break
uID <- C$ID[i]; vID <- C$ID[j]
if(uID!=vID)
if(C$S[i]==C$S[j]) if(C$T[i]==C$T[j]) {
fm <- min(C$f[i],C$f[j]); sM <- max(C$s[i],C$s[j]); T <- fm-sM+1
if(T>0){k <- k+1; if(k>kMax) stop("kMax too small")
if(uID > vID) {vID <- C$ID[i]; uID <- C$ID[j]}
N[k,] <- list(u=uID,v=vID,s=sM,f=fm,d=T,
rel=C$S[i],test=C$T[i],Ru=C$R[i],Rv=C$R[j])}
}
}
}
tA <- sum(N$d); tS <- sum(N[N$u!=N$v,"d"])
cat(p1,":",p2,"\n",date(),"\n density R =",2*r/n/(n-1),
" tests =",r,"\n density E =",2*k/n/(n-1)," edges =",k,
"\n time all =",tA," time strict =",tS,"\n")
N <- N[1:k,]; I <- order(N$u,N$v,N$rel,N$test,N$s,N$f); N <- N[I,]
k <- k+1; N[k,] <- list(u=sent,v=sent,s=0,f=0,rel="",test="")
cn <- rep(0,k); cs <- rep("",k); r <- 0; q <- 0
M <- data.frame(u=cs,v=cs,s=cn,f=cn,d=cn,rel=cs,test=cs)
Q <- data.frame(s=cn,f=cn); i <- 1; H <- N[i,c("u","v","rel","test")]
for(p in 1:k){
G <- N[p,c("u","v","rel","test")]
if(all(H==G)) {q <- q+1; Q[q,] <- list(s=N$s[p],f=N$f[p])} else {
L <- intUnion(Q[1:q,])
for(h in 1:nrow(L)){ r <- r+1
M[r,] <- list(u=H$u,v=H$v,s=L$s[h],f=L$f[h],d=0,rel=H$rel,test=H$test)
}
if(p==k) break
H <- G; i <- p; q <- 0
}
}
M <- M[1:r,]; M$d <- M$f-M$s+1; tR <- sum(M$d)
cat(" time reduced =",tR,"\n"); flush.console()
M$s <- as.Date(M$s,origin='1970-01-01')
M$f <- as.Date(M$f,origin='1970-01-01'); return(M)
}
===== Pretvorba v Pajkovo datoteko =====
> wdir <- "C:/Users/vlado/docs/papers/2024/Trajectories/Ostro"
> setwd(wdir)
> source("https://raw.githubusercontent.com/bavla/TQ/master/trajectories/trajector3.R")
> source("https://raw.githubusercontent.com/bavla/Rnet/master/R/Pajek.R")
> D <- read.csv("./ostro_podatki.csv",sep=",",head=TRUE)
> head(D)
> raw2events(D,CSV="Slo.csv")
> E <- read.csv("Slo.csv",sep="")
> traj2Pajek(E,500000,"./Slo3.net")
% traj2Pajek Wed Jan 24 03:22:21 2024
events 2645
..................................................50 8 Wed Jan 24 03:22:22 2024
..................................................100 21 Wed Jan 24 03:22:22 2024
..................................................150 63 Wed Jan 24 03:22:22 2024
...
..................................................2550 1850 Wed Jan 24 03:22:52 2024
..................................................2600 1871 Wed Jan 24 03:22:52 2024
............................................
Wed Jan 24 03:22:52 2024
density R = 0.2254995 tests = 788502
density E = 0.0005356494 edges = 1873
density E' = 0.0003014279 edges' = 1054
% finished Wed Jan 24 03:22:52 2024
===== Preizkusi =====
==== Mojca Šetinc Pašek : Branko Grims ====
> p1 <- "Mojca Šetinc Pašek"; p2 <- "Branko Grims"
> X <- explain(E,p1,p2)
Mojca Šetinc Pašek : Branko Grims
Thu Jan 25 04:20:06 2024
density R = 0.3517787 tests = 89
density E = 0.003952569 edges = 1
time all = 1554 time strict = 1554
time reduced = 1554
> X
u v s f d rel test
1 Branko Grims Mojca Šetinc Pašek 1991-10-01 1996-01-01 1554 izobraževanje ul fakulteta za družbene vede
> i12 <- c(which(E$ID == p1),which(E$ID == p2))
> C <- E[i12,]; I <- order(C$s,C$f); CI <- C[I,]
> CI$s <- as.Date(CI$s,origin='1970-01-01')
> CI$f <- as.Date(CI$f,origin='1970-01-01')
> CI
R ID s f S T
1809 1809 Branko Grims 1983-10-01 1987-01-01 izobraževanje ul naravoslovnotehniška fakulteta
1800 1800 Mojca Šetinc Pašek 1987-09-01 1991-08-01 izobraževanje prva gimnazija maribor
1822 1822 Branko Grims 1987-10-01 2003-01-01 izobraževanje ul fakulteta za družbene vede
1810 1810 Branko Grims 1987-12-09 1989-02-15 strankarska pozicija sds
1811 1811 Branko Grims 1990-01-01 1990-01-01 strankarska pozicija kranjski demos
1812 1812 Branko Grims 1990-01-01 1994-01-01 delovne izkušnje mo kranj
1813 1813 Branko Grims 1990-01-01 1994-01-01 delovne izkušnje mo kranj
1801 1801 Mojca Šetinc Pašek 1991-10-01 1996-01-01 izobraževanje ul fakulteta za družbene vede
1814 1814 Branko Grims 1993-01-01 1995-01-01 strankarska pozicija sds
1815 1815 Branko Grims 1994-12-23 1998-12-28 delovne izkušnje mo kranj
1816 1816 Branko Grims 1994-12-23 2024-01-01 delovne izkušnje mo kranj
1817 1817 Branko Grims 1995-01-01 1997-01-01 strankarska pozicija sds
1802 1802 Mojca Šetinc Pašek 1996-11-18 1998-05-03 delovne izkušnje rtv slovenija
1818 1818 Branko Grims 1997-12-17 2002-12-16 delovne izkušnje državni svet
1803 1803 Mojca Šetinc Pašek 1998-05-04 2001-09-03 delovne izkušnje rtv slovenija
1819 1819 Branko Grims 2000-04-10 2024-01-01 prostočasne aktivnosti ustanova vrtnica za pomoč ljudem v stiski
1804 1804 Mojca Šetinc Pašek 2001-10-01 2015-12-25 delovne izkušnje rtv slovenija
1820 1820 Branko Grims 2002-01-01 2004-01-01 svetovalne in nadzorne funkcije etc. sds
1821 1821 Branko Grims 2012-01-04 2014-04-07 lastništvo podjetja conditus
1805 1805 Mojca Šetinc Pašek 2015-01-26 2018-03-31 delovne izkušnje rtv slovenija
1806 1806 Mojca Šetinc Pašek 2018-04-01 2023-05-13 delovne izkušnje rtv slovenija
1808 1808 Mojca Šetinc Pašek 2022-01-01 2023-10-24 strankarska pozicija gibanje svoboda
1807 1807 Mojca Šetinc Pašek 2022-05-13 2023-11-28 strankarska pozicija gibanje svoboda
==== Igor Papič : Robert Golob ====
Glede na [[vlado:work:tra:ostro:pg|staro mero]] skrčena podobnost močno skrči razlago:
> p1 <- "Igor Papič"; p2 <- "Robert Golob"
> X <- explain(E,p1,p2)
Igor Papič : Robert Golob
Thu Jan 25 03:34:02 2024
density R = 0.3013733 tests = 1207
density E = 0.03071161 edges = 123
time all = 108359 time strict = 108359
time reduced = 9821
> X
u v s f d rel test
1 Igor Papič Robert Golob 1993-03-01 1996-01-01 1037 delovne izkušnje ul fakulteta za elektrotehniko
2 Igor Papič Robert Golob 1999-01-01 2021-01-01 8037 delovne izkušnje ul fakulteta za elektrotehniko
3 Igor Papič Robert Golob 1992-10-01 1994-10-17 747 izobraževanje ul fakulteta za elektrotehniko
> i12 <- c(which(E$ID == p1),which(E$ID == p2))
> C <- E[i12,]; I <- order(C$s,C$f); CI <- C[I,]
> CI$s <- as.Date(CI$s,origin='1970-01-01')
> CI$f <- as.Date(CI$f,origin='1970-01-01')
> CI
R ID s f S T
64 64 Igor Papič 1973-09-01 1981-08-01 izobraževanje oš v kočevju
1116 1116 Robert Golob 1979-09-01 1983-08-01 izobraževanje gimnazija nova gorica
65 65 Igor Papič 1981-09-01 1985-06-01 izobraževanje vegova ljubljana
1068 1068 Robert Golob 1983-10-01 1989-09-29 izobraževanje ul fakulteta za elektrotehniko
66 66 Igor Papič 1986-10-01 1992-01-01 izobraževanje ul fakulteta za elektrotehniko
1070 1070 Robert Golob 1989-11-15 1994-11-14 delovne izkušnje ul fakulteta za elektrotehniko
1069 1069 Robert Golob 1992-10-01 1994-10-17 izobraževanje ul fakulteta za elektrotehniko
67 67 Igor Papič 1992-10-01 1995-01-01 izobraževanje ul fakulteta za elektrotehniko
69 69 Igor Papič 1993-03-01 1996-01-01 delovne izkušnje ul fakulteta za elektrotehniko
1115 1115 Robert Golob 1994-01-01 1994-01-01 izobraževanje tehniška univerza v georgii atlanta zda
70 70 Igor Papič 1994-01-01 1996-01-01 delovne izkušnje siemens nemčija
1071 1071 Robert Golob 1994-11-15 1995-10-31 delovne izkušnje ul fakulteta za elektrotehniko
68 68 Igor Papič 1995-10-01 1998-01-01 izobraževanje ul fakulteta za elektrotehniko
1072 1072 Robert Golob 1995-11-01 1997-09-30 delovne izkušnje ul fakulteta za elektrotehniko
1073 1073 Robert Golob 1997-10-01 2001-06-30 delovne izkušnje ul fakulteta za elektrotehniko
1077 1077 Robert Golob 1998-01-01 2001-06-30 delovne izkušnje ul fakulteta za elektrotehniko
1078 1078 Robert Golob 1998-11-01 1999-08-31 delovne izkušnje ministrstvo za gospodarstvo
71 71 Igor Papič 1999-01-01 2007-01-01 delovne izkušnje ul fakulteta za elektrotehniko
1081 1081 Robert Golob 1999-01-01 2009-12-31 delovne izkušnje ul fakulteta za elektrotehniko
1079 1079 Robert Golob 1999-09-01 2000-06-19 delovne izkušnje ministrstvo za gospodarstvo
1084 1084 Robert Golob 2000-01-01 2001-06-30 delovne izkušnje ul fakulteta za elektrotehniko
96 96 Igor Papič 2000-01-01 2002-06-30 delovne izkušnje ul fakulteta za elektrotehniko
1083 1083 Robert Golob 2000-01-01 2021-01-01 delovne izkušnje ul fakulteta za elektrotehniko
1080 1080 Robert Golob 2000-12-13 2001-04-27 delovne izkušnje ministrstvo za gospodarstvo
72 72 Igor Papič 2001-01-01 2001-09-01 delovne izkušnje univerza manitoba kanada
94 94 Igor Papič 2001-01-01 2002-12-31 delovne izkušnje ul fakulteta za elektrotehniko
1085 1085 Robert Golob 2001-01-01 2003-12-22 lastništvo podjetja golob robert – energia
1086 1086 Robert Golob 2001-01-01 2003-12-31 delovne izkušnje ul fakulteta za elektrotehniko
1082 1082 Robert Golob 2001-06-01 2002-10-01 delovne izkušnje nuklearna elektrarna krško
1074 1074 Robert Golob 2002-10-01 2007-08-31 delovne izkušnje ul fakulteta za elektrotehniko
1117 1117 Robert Golob 2002-10-21 2011-08-23 lastništvo podjetja ig energetski sistemi
1087 1087 Robert Golob 2002-12-17 2006-12-07 delovne izkušnje mo nova gorica
1088 1088 Robert Golob 2002-12-17 2006-12-07 strankarska pozicija mavrica
1089 1089 Robert Golob 2004-07-01 2007-06-30 delovne izkušnje ul fakulteta za elektrotehniko
1090 1090 Robert Golob 2004-12-01 2007-11-30 delovne izkušnje ul fakulteta za elektrotehniko
1091 1091 Robert Golob 2005-01-01 2007-12-31 delovne izkušnje ul fakulteta za elektrotehniko
98 98 Igor Papič 2005-09-01 2008-08-31 delovne izkušnje ul fakulteta za elektrotehniko
90 90 Igor Papič 2005-11-01 2008-10-31 delovne izkušnje ul fakulteta za elektrotehniko
1118 1118 Robert Golob 2006-01-01 2012-12-31 svetovalne in nadzorne funkcije etc. ig energetski sistemi
73 73 Igor Papič 2006-04-20 2017-01-01 svetovalne in nadzorne funkcije etc. tehnološka platforma za pametna omrežja smart grid
97 97 Igor Papič 2006-06-01 2008-05-31 delovne izkušnje ul fakulteta za elektrotehniko
1092 1092 Robert Golob 2006-10-06 2021-11-17 delovne izkušnje geni
1093 1093 Robert Golob 2006-11-20 2020-02-03 prostočasne aktivnosti krajevna skupnost kromberk loke
1094 1094 Robert Golob 2006-12-07 2022-03-09 delovne izkušnje mo nova gorica
1095 1095 Robert Golob 2006-12-07 2022-03-09 strankarska pozicija lista roberta goloba
74 74 Igor Papič 2007-04-01 2022-05-30 delovne izkušnje ul fakulteta za elektrotehniko
1096 1096 Robert Golob 2007-07-18 2012-12-24 delovne izkušnje ig investicijski inženiring
75 75 Igor Papič 2007-09-01 2009-03-31 delovne izkušnje ul fakulteta za elektrotehniko
1075 1075 Robert Golob 2007-09-01 2013-12-31 delovne izkušnje ul fakulteta za elektrotehniko
100 100 Igor Papič 2008-02-01 2011-01-30 delovne izkušnje ul fakulteta za elektrotehniko
1097 1097 Robert Golob 2008-02-01 2011-01-30 delovne izkušnje ul fakulteta za elektrotehniko
99 99 Igor Papič 2008-09-01 2010-08-30 delovne izkušnje ul fakulteta za elektrotehniko
1098 1098 Robert Golob 2008-12-15 2009-11-06 delovne izkušnje vitales nova gorica
1099 1099 Robert Golob 2009-01-01 2015-12-31 delovne izkušnje ul fakulteta za elektrotehniko
95 95 Igor Papič 2009-01-01 2023-01-01 delovne izkušnje ul fakulteta za elektrotehniko
76 76 Igor Papič 2009-04-01 2024-01-01 delovne izkušnje ul fakulteta za elektrotehniko
77 77 Igor Papič 2009-08-11 2024-01-01 lastništvo podjetja reinhausen 2e
92 92 Igor Papič 2009-09-11 2014-03-10 delovne izkušnje ul fakulteta za elektrotehniko
1100 1100 Robert Golob 2009-11-16 2012-05-10 delovne izkušnje istrabenz gorenje
1101 1101 Robert Golob 2010-01-01 2010-08-31 delovne izkušnje ul fakulteta za elektrotehniko
91 91 Igor Papič 2010-01-01 2013-12-31 delovne izkušnje ul fakulteta za elektrotehniko
101 101 Igor Papič 2011-01-01 2012-06-30 delovne izkušnje ul fakulteta za elektrotehniko
1104 1104 Robert Golob 2011-01-01 2013-01-01 strankarska pozicija pozitivna slovenija
1102 1102 Robert Golob 2011-05-31 2014-12-22 lastništvo podjetja hiša otrok sonček
1103 1103 Robert Golob 2011-06-21 2012-12-27 svetovalne in nadzorne funkcije etc. enerve
102 102 Igor Papič 2011-07-01 2014-06-30 delovne izkušnje ul fakulteta za elektrotehniko
78 78 Igor Papič 2011-09-01 2013-08-31 svetovalne in nadzorne funkcije etc. ul fakulteta za elektrotehniko
93 93 Igor Papič 2012-01-01 2015-12-31 delovne izkušnje ul fakulteta za elektrotehniko
1105 1105 Robert Golob 2012-02-03 2013-06-03 prostočasne aktivnosti ezts go
1106 1106 Robert Golob 2012-07-20 2012-11-14 delovne izkušnje vitales rth
86 86 Igor Papič 2013-01-01 2024-01-01 svetovalne in nadzorne funkcije etc. ieee
84 84 Igor Papič 2013-05-01 2017-01-01 svetovalne in nadzorne funkcije etc. slovensko združenje elektroenergetikov cigrecired
1107 1107 Robert Golob 2013-06-03 2018-07-06 prostočasne aktivnosti ezts go
79 79 Igor Papič 2013-09-01 2017-08-31 svetovalne in nadzorne funkcije etc. ul fakulteta za elektrotehniko
1110 1110 Robert Golob 2014-01-01 2017-01-01 prostočasne aktivnosti rokometna zveza slovenije
1076 1076 Robert Golob 2014-01-01 2018-10-31 delovne izkušnje ul fakulteta za elektrotehniko
1108 1108 Robert Golob 2014-06-11 2024-01-01 prostočasne aktivnosti društvo za razvoj goriške regije – hitri in drzni
1109 1109 Robert Golob 2014-09-12 2016-05-12 prostočasne aktivnosti društvo slovenskoitalijanski poslovni svet
87 87 Igor Papič 2015-05-01 2024-01-01 svetovalne in nadzorne funkcije etc. skupna delovna skupina cigre c442/cired
85 85 Igor Papič 2016-01-01 2022-01-01 svetovalne in nadzorne funkcije etc. ieee
1112 1112 Robert Golob 2017-01-01 2018-01-01 delovne izkušnje ul fakulteta za elektrotehniko
88 88 Igor Papič 2017-01-01 2021-01-01 svetovalne in nadzorne funkcije etc. slovensko združenje elektroenergetikov cigrecired
1111 1111 Robert Golob 2017-02-21 2018-02-01 delovne izkušnje geni sonce
80 80 Igor Papič 2017-10-01 2019-09-30 svetovalne in nadzorne funkcije etc. univerza v ljubljani
1114 1114 Robert Golob 2019-02-21 2024-01-01 prostočasne aktivnosti inženirska akademija slovenije
81 81 Igor Papič 2019-11-01 2020-11-01 svetovalne in nadzorne funkcije etc. eutopia
89 89 Igor Papič 2019-11-12 2022-05-31 svetovalne in nadzorne funkcije etc. slovenska akademija znanosti in umetnosti
82 82 Igor Papič 2022-05-20 2024-01-01 svetovalne in nadzorne funkcije etc. elektrotehniška zveza slovenije
1113 1113 Robert Golob 2022-05-25 2024-01-01 delovne izkušnje vlada
83 83 Igor Papič 2022-06-01 2023-01-23 delovne izkušnje ministrstvo za izobraževanje znanost in šport
==== Mojca Šetinc Pašek : Tanja Fajon ====
> p1 <- "Mojca Šetinc Pašek"; p2 <- "Tanja Fajon"
> X <- explain(E,p1,p2)
Mojca Šetinc Pašek : Tanja Fajon
Thu Jan 25 03:30:28 2024
density R = 0.23 tests = 69
density E = 0.02 edges = 6
time all = 6149 time strict = 6149
time reduced = 5126
> X
u v s f d rel test
1 Mojca Šetinc Pašek Tanja Fajon 1996-11-18 2001-09-03 1751 delovne izkušnje rtv slovenija
2 Mojca Šetinc Pašek Tanja Fajon 2001-10-01 2009-07-13 2843 delovne izkušnje rtv slovenija
3 Mojca Šetinc Pašek Tanja Fajon 1996-11-18 1998-05-03 532 izobraževanje ul fakulteta za družbene vede
> i12 <- c(which(E$ID == p1),which(E$ID == p2))
> C <- E[i12,]; I <- order(C$s,C$f); CI <- C[I,]
> CI$s <- as.Date(CI$s,origin='1970-01-01')
> CI$f <- as.Date(CI$f,origin='1970-01-01')
> CI
R ID s f S T
103 103 Tanja Fajon 1978-09-01 1986-08-01 izobraževanje oš polje
104 104 Tanja Fajon 1986-09-01 1990-08-01 izobraževanje gimnazija poljane
1800 1800 Mojca Šetinc Pašek 1987-09-01 1991-08-01 izobraževanje prva gimnazija maribor
105 105 Tanja Fajon 1990-10-01 1996-03-19 izobraževanje ul fakulteta za družbene vede
108 108 Tanja Fajon 1991-01-01 1995-01-01 delovne izkušnje radio glas ljubljane
1801 1801 Mojca Šetinc Pašek 1991-10-01 1996-01-01 izobraževanje ul fakulteta za družbene vede
109 109 Tanja Fajon 1993-01-01 1993-01-01 delovne izkušnje republika
110 110 Tanja Fajon 1994-01-01 1995-01-01 delovne izkušnje primorski dnevnik
111 111 Tanja Fajon 1996-09-16 2001-01-01 delovne izkušnje rtv slovenija
1802 1802 Mojca Šetinc Pašek 1996-11-18 1998-05-03 delovne izkušnje rtv slovenija
1803 1803 Mojca Šetinc Pašek 1998-05-04 2001-09-03 delovne izkušnje rtv slovenija
112 112 Tanja Fajon 2001-01-01 2009-04-30 delovne izkušnje rtv slovenija
1804 1804 Mojca Šetinc Pašek 2001-10-01 2015-12-25 delovne izkušnje rtv slovenija
106 106 Tanja Fajon 2004-10-01 2005-01-01 izobraževanje fakulteta za interdisciplinarne študije univerza pariz jug francija
113 113 Tanja Fajon 2009-05-01 2009-07-13 delovne izkušnje rtv slovenija
114 114 Tanja Fajon 2009-05-08 2009-06-07 strankarska pozicija sd
115 115 Tanja Fajon 2009-07-14 2022-05-12 delovne izkušnje evropski parlament
116 116 Tanja Fajon 2009-07-14 2022-05-12 strankarska pozicija poslanska skupina socialistov in demokratov
117 117 Tanja Fajon 2014-07-01 2019-07-01 strankarska pozicija poslanska skupina socialistov in demokratov
107 107 Tanja Fajon 2014-10-01 2016-01-01 izobraževanje iedc – poslovna šola bled
1805 1805 Mojca Šetinc Pašek 2015-01-26 2018-03-31 delovne izkušnje rtv slovenija
1806 1806 Mojca Šetinc Pašek 2018-04-01 2023-05-13 delovne izkušnje rtv slovenija
1808 1808 Mojca Šetinc Pašek 2022-01-01 2023-10-24 strankarska pozicija gibanje svoboda
1807 1807 Mojca Šetinc Pašek 2022-05-13 2023-11-28 strankarska pozicija gibanje svoboda
118 118 Tanja Fajon 2022-10-15 2024-01-01 strankarska pozicija stranka evropskih socialistov