# Define a string
s <- "This is an example sentence"
s2 <- strsplit(s, " ")
print(s2)

s3<-paste(s2[[1]],collapse=" ")
print(s3)