powered by
Calculate the proportion of agreement between two vectors
funPropAgree(vec1, vec2)
Vector of binary time series (no missing values)
Vector of binary time series (equal length as vec1, no missing values)
list with two elements
value of the proportion of agreement and
value
funName name of the function
funName
# NOT RUN { data1 <- rep(c(1,0,1,1),25) data2 <- ifelse(rnorm(100,0,1)<0.7,0,1) funPropAgree(data1,data2) # }
Run the code above in your browser using DataLab