You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
201 B
11 lines
201 B
4 years ago
|
# Function to get mode
|
||
|
|
getmode <- function(v) {
|
||
|
|
uniqv <- unique(v)
|
||
|
|
uniqv[which.max(tabulate(match(v, uniqv)))]
|
||
|
|
}
|
||
|
|
|
||
|
|
# Function to return length of unique
|
||
|
|
|
||
|
|
lenun <- function(x) {
|
||
|
|
length(unique(x))
|
||
|
|
}
|