max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Translated myisvector()

Browse source
This commit is contained in:
Waldir Leoncio 2022-12-22 14:47:56 +01:00
parent 6f8e1a51a2
commit b6afea85e1
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
R/myisvector.R Normal file
View file

@ -0,0 +1,7 @@
myisvector <- function(V) {
# Kuten isvector(V)
A <- size(V)
r <- (length(A) == 2) & (min(A) == 1)
return(r)
}