7 lines
120 B
R
7 lines
120 B
R
myisvector <- function(V) {
|
|
# Kuten isvector(V)
|
|
|
|
A <- size(V)
|
|
r <- (length(A) == 2) & (min(A) == 1)
|
|
return(r)
|
|
}
|