# NOT RUN {
library(RDFTensor)
data('umls_tnsr')
ntnsr=umls_tnsr
#Calculate RECAL Factorization
tt=rescal(ntnsr$X,rnk=10,ainit='nvecs',verbose=2,lambdaA=0,epsilon=1e-4,lambdaR=0)
A=tt$A
R=tt$R
#Calculate scores
res=rescal_Trp_Val(tt$R,tt$A,ntnsr)
<!-- % plot(density(res[,'val']),main='RESCAL Factorization rank=10, density of triples of UMLS') -->
print(summary(res[,'val']))
# }
Run the code above in your browser using DataLab