2013-08-27 4 views

ответ

3

ли эта работа?

d = c("Mark Twain", "Phil Hall", "Michael Paul O'Connor") 
max(sapply(strsplit(d, ' '), length)) 
+1

+1, если вы используете 'sapply' вам не нужно использовать', как .numeric' из-за типа возврата –

+0

Хорошо наблюдаемый :) – geotheory

2

Вот подход, использующий функцию qdap в wc (количество слов):

test <- c("Mark Twain", "Phil Hall", "Michael Paul O'Connor") 

library(qdap) 
max(wc(test)) 

## > max(wc(test)) 
## [1] 3 
Смежные вопросы