上傳人：r***

認(rèn)證信息

認(rèn)證類型：個(gè)人認(rèn)證

認(rèn)證主體：余**（實(shí)名認(rèn)證）

IP屬地：貴州

IP屬地：貴州 上傳時(shí)間：2022-03-06 格式：DOC 頁數(shù)：4 大?。?8.50KB 積分：20 舉報(bào) 版權(quán)申訴

1、精選優(yōu)質(zhì)文檔-傾情為你奉上19.對于下面的向量x和y，計(jì)算指定的相似性或距離度量。(a)x=(1,1,1,1),y=(2,2,2,2)余弦、相關(guān)、歐幾里得。(b)x=(0,1,0,1),y=(1,0,1,0)余弦、相關(guān)、歐幾里得、Jaccard 。(c)x=(0,-1,0,1),y=(1,0,-1,0)余弦、相關(guān)、歐幾里得。(d)x=(1,1,0,1,0,1),y=(1,1,1,0,0,1)余弦、相關(guān)、Jaccard 。(e)x=(2,-1,0,2,0,-3),y=(-1,-1,-1,0,0,-1)余弦、相關(guān)。#（a）x=c(1,1,1,1)y=c(2,2,2,2)#歐幾里得s2=sum(y-

2、x)2)p=sqrt(s2)p#余弦相似性xy<-sum(x*y)x1=sqrt(sum(x2)y1=sqrt(sum(y2)cosxy=xy/(x1*y1)cosxy#相關(guān)性x=c(1,1,1,1)y=c(2,2,2,2)n=length(x) #求x的字符串長度x0=sum(x)/n #計(jì)算均值y0=sum(y)/ncovariance<-sum(x-x0)*(y-y0)/(n-1)covariancestandardx<-sqrt(sum(x-x0)2)/(n-1)standardxstandardy<-sqrt(sum(y-y0)2)/(n-1)standard

3、ycorrxy=covariance/(standardx*standardy)corrxy#（b）#余弦x<-c(0,1,0,1)y<-c(1,0,1,0)xy<-sum(x*y)x1=sqrt(sum(x2)y1=sqrt(sum(y2)cosxy=xy/(x1*y1)cosxy#相關(guān)性x<-c(0,1,0,1)y<-c(1,0,1,0)n=length(x) #求x的字符串長度x0=sum(x)/n #計(jì)算均值y0=sum(y)/ncovariance<-sum(x-x0)*(y-y0)/(n-1)covariancestandardx<-sqr

4、t(sum(x-x0)2)/(n-1)standardxstandardy<-sqrt(sum(y-y0)2)/(n-1)standardycorrxy=covariance/(standardx*standardy)corrxy#歐幾里得x<-c(0,1,0,1)y<-c(1,0,1,0)s2=sum(y-x)2)p=sqrt(s2)p#Jaccardx<-c(0,1,0,1)y<-c(1,0,1,0)xy<-sum(x*y)x2=sum(x2)y2=sum(y2)EJ=xy/(x2+y2-xy)EJ#(c)#余弦x=c(0,-1,0,1)y=c(1,0,

5、-1,0)xy<-sum(x*y)x1=sqrt(sum(x2)y1=sqrt(sum(y2)cosxy=xy/(x1*y1)cosxy#相關(guān)x=c(0,-1,0,1)y=c(1,0,-1,0)n=length(x) #求x的字符串長度x0=sum(x)/n #計(jì)算均值y0=sum(y)/ncovariance<-sum(x-x0)*(y-y0)/(n-1)covariancestandardx<-sqrt(sum(x-x0)2)/(n-1)standardxstandardy<-sqrt(sum(y-y0)2)/(n-1)standardycorrxy=covaria

6、nce/(standardx*standardy)corrxy#歐幾里得x=c(0,-1,0,1)y=c(1,0,-1,0)s2=sum(y-x)2)p=sqrt(s2)p#（d)x=c(1,1,0,1,0,1),y=c(1,1,1,0,0,1)）#余弦x=c(1,1,0,1,0,1)y=c(1,1,1,0,0,1)xy<-sum(x*y)x1=sqrt(sum(x2)y1=sqrt(sum(y2)cosxy=xy/(x1*y1)cosxy#相關(guān) x=c(1,1,0,1,0,1),y=c(1,1,1,0,0,1)n=length(x) #求x的字符串長度x0=sum(x)/n #計(jì)算均值

7、y0=sum(y)/ncovariance<-sum(x-x0)*(y-y0)/(n-1)covariancestandardx<-sqrt(sum(x-x0)2)/(n-1)standardxstandardy<-sqrt(sum(y-y0)2)/(n-1)standardycorrxy=covariance/(standardx*standardy)corrxy#Jaccardx=c(1,1,0,1,0,1)y=c(1,1,1,0,0,1)xy<-sum(x*y)x2=sum(x2)y2=sum(y2)EJ=xy/(x2+y2-xy)EJ#（e）x=(2,-1,0,2,0,-3),y=(-1,-1,-1,0,0,-1)#余弦x=c(2,-1,0,2,0,-3)y=c(-1,-1,-1,0,0,-1)xy<-sum(x*y)x1=sqrt(sum(x2)y1=sqrt(sum(y2)cosxy=xy/(x1*y1)cosxy#相關(guān)x=c(2,-1,0,2,0,-3)y=c(-1,-1,-1,0,0,-1)n=length(x) #求x的字符串長度x0=sum(x)/n #計(jì)算均值y0=sum(y)/ncovariance<-sum(x-x0)*(y-y0)/(n-1)covariancestandardx<-sqrt