# install required packages
install.packages("writexl")
# load the install packages into
# current working directory
library(writexl)
# creation of numeric data frame
data_frame <- data.frame("Roll_Number" <- c(1,2,3,4,5,6,7,8,9,10),
"Age"<- c(18,19,20,19,18,17,18,19,17,16),
"Marks" <- c(98,96,89,90,75,35,88,92,78,94))
# Converting using write_xlsx() function
writexl::write_xlsx(data_frame,
"Documents\\Sample.xlsx",
col_names=TRUE,
format_headers=TRUE,
use_zip64=FALSE)