search for: guerzoni

...if (Begin[i] <= End[j]) { if (End[i]-Begin[j] >= 0) { B[i,j] <- B[i,j]+1 B[i,i] <- 0 } } else{ if (End[j]-Begin[i] >= 0) { B[i,j] <- B[i,j]+1 B[i,i] <- 0 } } } } print(i) } do you have a way to make the programm simpler and faster? thank you very much Marco Guerzoni, Department of Economics University of Turin -- View this message in context: http://r.789695.n4.nabble.com/If-cycle-takes-to-much-time-tp4656601.html Sent from the R help mailing list archive at Nabble.com.

dear all, apologizes for bothering with a probably stupid question but I really don' t know how to proceed. I have a dataset which look like df a <- c(1,2,3,4,4,4,5,5) b <- c(11,7,4,9,8,3,12,4) df <-cbind(a,b) I would like to have one which looks like this: a 1 11 2 7 3 4 4 9 8 3 5 12 4 a are vertex of a network, b the edges. In the data the lenght of a is about 50000 I read