function(){
start.time <- Sys.time() ```your spark r code for naive bayes ``` end.time <- Sys.time() time.taken <- end.time - start.time
print(time.taken)