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

Translated mysubset()

Browse source
This commit is contained in:
Waldir Leoncio 2022-12-22 13:31:41 +01:00
parent 73438af7bb
commit a757a4435c
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
R/mysubset.R
View file

@ -1,13 +1,13 @@
mysubset <- function(small, large) { mysubset <- function(small, large) {
# function p=mysubset(small,large) # MYSUBSET Is the small set of + ve integers a subset of the large set?
# % MYSUBSET Is the small set of +ve integers a subset of the large set? # p <- mysubset(small, large)
# % p = mysubset(small, large)
# % Surprisingly, this is not built-in. # Surprisingly, this is not built - in.
# if isempty(small) if (is.null(small)) {
# p = 1; % isempty(large); p <- 1# is.null(large)
# else } else {
# p = length(myintersect(small,large)) == length(small); p <- length(myintersect(small, large)) == length(small)
# end }
return(p)
} }