R
stanton_measure <- function(arr){
sum(arr == sum(arr == 1))
}
stanton_measure <- function(arr){
sum(arr == table(arr)[1])
}
stanton_measure <- function(arr){
length(arr[arr==length(arr[arr==1])])
}
stanton_measure <- function(arr){
sum(arr == sum(arr == 1))
}
stanton_measure <- function(arr){
sum(arr == table(arr)[1])
}
stanton_measure <- function(arr){
length(arr[arr==length(arr[arr==1])])
}