search for: matrixcoo

...'vector.data',head=TRUE) j <- subset(coordinates,select=c(j)) ja <- as.integer(j[1:dim(j)[1],]) i<-subset(coordinates,select=c(i)) ia <- as.integer(i[1:dim(i)[1],]) classes <- read.csv("classes.data",head=TRUE) classfactorTraining <- classes[1:(max(ia)),] #build matrixcoo first, then matrixcsr for training dim <- as.integer(c(max(ia),max(ja))) matrixcoo = new("matrix.coo",ra=rep(1,dim(j)[1]),ja=ja,ia=ia,dim=dim) matrixcsrTraining = as.matrix.csr(matrixcoo) #build a simple matrix for testing matrixcoo = new("matrix.coo",ra=rep(1,1),ja=as.inte...