apply(extra4, 2, as.numeric) sapply(extra4, as.numeric) class(extra4) <- "numeric" storage.mode(extra4) <- "numeric"