# NOT RUN {
data(DBLP)
X=DBLP
Xb=X==1
Res=GreConD(Xb,7)
X_=Res$A %*% Res$B
X_=as(X_,'TsparseMatrix')
X=as(X,'TsparseMatrix')
li=X@i[X@x==1]+1
lj=X@j[X@x==1]+1
tp=sum(X_[cbind(li,lj)]>0)
fn=sum(X)-tp#sum(!X_[cbind(li,lj)])
fp=sum(X_@x>0)-tp
cv=1-(fp+fn)/(tp+fn)
print(sprintf("tp:%d, fp:%d,fn:%d, Error:%d, covered=%.3f",tp,fp,fn,fn+fp,cv))
# }
Run the code above in your browser using DataLab