检查两个向量是否为子集
提问于 2020-08-30 04:03:55
我正在尝试检查{1，...，M}中是否存在整数i，使得a_i =1，b_i = 0，以及{1，...，M}中是否存在整数j，使得b_j =1，a_j =0。如果这种情况成立，则输出1(不可比较)；否则，输出0(它们是可比较的)。
我试过这个：
a<-c(1,0,1,0)
b<-c(1,0,0,1)
M<-length(a)
incomparable<-function(M, a, b)
{
for(i in 1:M){
for(j in 1:M){
if(a[i]!=b[i] && b[j]!=a[j]) {
print (1)
}
else {
print(0)
}
}
}
}
incomparable(M,a,b)
> incomparable(M,a,b)
[1] 0
[1] 0
[1] 0
[1] 0
[1] 0
[1] 0
[1] 0
[1] 0
[1] 0
[1] 0
[1] 1
[1] 1
[1] 0
[1] 0
[1] 1
[1] 1我只需要0或1作为我的输出。我如何修复我的代码？
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-08-30 06:24:41
我相信这适用于您所描述的条件。
incomparable <- function(a,b){
cond1 <- sum(a>b) > 0 # Returns true is if there is at least one case such that a_i is 1 and b_i is 0
cond2 <- sum(b>a) > 0 # True if at least one case such that one case with b_i is 1 and a_i is 0
cond1*cond2
}
##### Check a case where they are incomparable vectors
a<-c(1,0,0,1,0,0,1,0)
b<-c(1,0,0,1,1,0,0,0)
incomparable(a,b)
[1] 1
##### Check case where a = b
a<-c(1,0,0,1)
b<-c(1,0,0,1)
incomparable(a,b)
[1] 0
#### Case where a \subset b
a<-c(1,0,0,0,1,0,1)
b<-c(1,0,0,1,1,0,1)
incomparable(a,b)
[1] 0
### Case where b \subset a
a<-c(1,1,1,0,1,0)
b<-c(1,1,0,0,1,0)
incomparable(a,b)
[1] 0页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/63657820
复制相关文章
![[译] Traffic Director如何为开放服务网格提供全局负载均衡](https://ask.qcloudimg.com/http-save/6625421/20f099a7e611e9dedcd432a5dfa76e1d.png)
点击加载更多
相似问题
无法连接Linux VM (Google Cloud Platform Compute Engine)
Google Cloud Platform Debugger for Compute Engine with Payara/Glassfish Application Server
How to Read Photos for Deep Learning on Google Cloud Platform Compute Engine VM Instance，通过Jupyter Lab
Google Cloud Platform - Compute Engine Bitnami表示堆栈启动脚本
如何在Google Cloud Platform的Compute Engine上安装Jenkins？
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
