Hi,
Check whether this works:
vec1 <- c( 'eric', 'JOHN', 'eric', 'JOHN', 'steve', 'scott', 'steve', 'scott',
'JOHN', 'eric')
vec2 <- c( 'eric', 'JOHN', 'eric', 'eric', 'JOHN', 'JOHN', 'steve', 'steve',
'scott', 'scott')
vec3 <- c( 'eric', 'eric', 'JOHN', 'eric', 'JOHN', 'JOHN', 'steve', 'steve',
'scott', 'scott')
vec4 <- c( 'eric', 'eric', 'JOHN', 'eric', 'JOHN', 'steve', 'steve', 'scott',
'scott','JOHN')
vec5 <- c('JOHN', 'JOHN', 'eric', 'eric', 'JOHN', 'eric', 'steve', 'steve',
'scott', 'scott')
vec6 <- c( 'eric', 'eric', 'eric', 'JOHN','JOHN', 'JOHN', 'steve',
'steve','scott', 'scott')
vec7 <- c( 'eric', 'eric', 'eric', 'JOHN','JOHN', 'JOHN', 'steve', 'scott',
'scott', 'steve')
fun1 <- function(vec) {
sum(unlist(sapply(unique(vec),function(x) {x1 <- diff(which(vec %in% x));
ifelse(x1==1, 1, -x1)}),use.names=FALSE))
}
A.K.
I took a steve and put it at the end of the vector. score should be less as
the steves are farther apart.
> vec3 <- c( 'eric', 'eric', 'eric', 'JOHN','JOHN', 'JOHN', 'steve',
> 'steve','scott', 'scott')
> sum(diff(vec3[-1]!=vec3[-length(vec3)])) + sum(vec3[-1]==
> vec3[-length(vec3)])
[1] 6
> vec4 <- c( 'eric', 'eric', 'eric', 'JOHN','JOHN', 'JOHN', 'steve', 'scott',
> 'scott', 'steve')
> sum(diff(vec4[-1]!=vec4[-length(vec4)])) + sum(vec4[-1]==
> vec4[-length(vec4)])
[1] 6
S
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
