Displaying 1 result from an estimated 1 matches for "istitutioni".
Did you mean:
istitution
2013 Jan 25
2
If cycle takes to much time...
...2006-07-20'))
End <- as.Date(c('2006-10-23', '2006-11-30', '2006-05-06', '2006-12-13',
'2006-09-20', '2006-08-13', '2006-09-20'))
Istitution <- c(1, 2, 2, 1, 1, 2, 1)
artist is the name of the artist, Begin and End is the when and Istitutionis
the where.
my IF is working,
#number of unique artist
c <- unique(Artist)
d <- length(c)
a <-length(Artist)
B <- mat.or.vec(d,d)
for(i in 1:d) {
for(j in 1:d) {
if (Istitution[i] == Istitution[j]) {
if (Begin[i] <= End[j])
{
if (End[i]-Begin[j] >= 0) {
B[i,j] <- B[i,j...