R/loadvector2.R

In blockmodelingOld: Generalized and Classical Blockmodeling of Valued Networks

"loadvector2" <-
structure(function(filename){
  if(is.character(filename)) {file<-file(description=filename,open="r")
  }else file<-filename
  nn <-read.table(file=file,nrows=1)
  while(nn[1]!="*vertices") nn <-read.table(file=file,nrows=1)
  vv<-read.table(file=file,nrows=nn[[2]])
  if (dim(vv)[2]==1)
    vv<-vv[[1]]
  if(is.character(filename)) close(file)
  vv
}
, comment = "Load vector(s) from file that was produced by Pajek")