Rf <- matrix(runif(48),nrow=6)
rownames(Rf) <- c("A","B","C","D","E","F")
colnames(Rf) <- c("a","b","c","d","e","f","g","h")
JWriteBin(Rf,"Rfullfloat.bin",dtype="float",dmtype="full",comment="Full matrix of floats")
Rf[,c(1,4)]
vc<-GetJManyCols("Rfullfloat.bin",c(1,4))
vc
file.remove("Rfullfloat.bin")
Run the code above in your browser using DataLab