Replace logical values (TRUE / FALSE) with numeric (1 / 0)

Question

I am exporting data from R with the command:

write.table(output,file = "data.raw", na "-9999", sep = "\\t", row.names = FALSE, c         


        

Answer 1

If there are multiple columns, you could use set (using @josilber's example)

library(data.table)
Cols <-  which(sapply(dat, is.logical))
setDT(dat)

for(j in Cols){
 set(dat, i=NULL, j=j, value= as.numeric(dat[[j]]))
}