R/cos_sim_calc.R

Defines functions cos_sim_calc

Documented in cos_sim_calc

cos_sim_calc = function(nummatrix) 
{cossimdata = NULL; for (i in 1:(nrow(nummatrix) - 1)) 
       {for (j in (i+1):nrow(nummatrix)) 
                     { tempa = sum(nummatrix[i,]*nummatrix[j,]) /(sqrt(sum(nummatrix[i,]^2))* sqrt(sum(nummatrix[j,]^2))) ;  tempb = names(nummatrix[i,1]); tempc = names(nummatrix[j,1]); tempd = cbind(tempb,tempc,tempa);  write.table(tempd, file = "cossimdata.txt", append = T, row.names = F, col.names = F, sep = "\t", quote = F  )}
        } 
        
}

Try the pubmed.mineR package in your browser

Any scripts or data that you put into this service are public.

pubmed.mineR documentation built on Nov. 26, 2021, 5:11 p.m.