data(Kenworthy99)
m1 <- lm(scale(dv) ~ scale(gdp) + scale(pov) + scale(tran) -1,data=Kenworthy99)
rp1 <- rio.plot(m1,include.int="no",r1=1:15)
cosine(rp1$row.dimensions[15,],rp1$row.dimensions[8,])
# cosine similarity between USA and Ireland
cosine(rp1$row.dimensions[15,],rp1$row.dimensions[14,])
# cosine similarity between USA and United Kingdom
Run the code above in your browser using DataLab