统计建模与r软件第八讲.ppt

2. 线性判别函数中系数的确定u(x)为线性函数 设总体X1,X2的样本容量为n1,n2;则u1, u2和σ1, σ 2的估计: 确定判别函数 若 ： 进一步： 判别准则为: 4. R程序与例子 例8.5 用Fisher判别解例8.1 classx1=read.table(dataexample801x1.txt) classx2=read.table(dataexample801x2.txt) discriminiant.fisher(classx1,classx2) 结果： 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 blong 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 27 28 29 30 31 32 33 34 35 blong 2 1 1 2 2 2 2 2 2 #28，29号样本为误判样本 R程序 … mu1-colMeans(TrnX1); mu2-colMeans(TrnX2) S-(n1-1)*var(TrnX1)+(n2-1)*var(TrnX2) mu-n1/(n1+n2)*mu1+n2/(n1+n2)*mu2 w-(TstX-rep(1,nx) %o% mu) %*% solve(S, mu2-mu1); … 8.2 聚类分析[7] 常用的几种距离： 第2个样本与第n个样本之间的距离记为d2n or dn2 8.2.1距离和相似系数 绝对值距离or“棋盘距离”or“城市街区”距离 Euclid(欧几里得)距离 Minkowski(闵可夫斯基)距离 continue Chebyshev(切比雪夫)距离 Mahalanobis 距离为： Lance和Williams 距离 定性变量样本间的距离 第i个样本记为: 项目 项目的类目数 样本 x(1) x(2) 性别 外语 专业 职业 男 女 英 日 德 俄 统计 会计 金融 教师 工程师 1 0 1 0 0 0 0 0 1 0 1 0 1 1 0 0 0 1 0 0 1 0 类目 Continue: 样本 x(1) x(2) 性别 外语 专业 职业 男 女 英 日 德 俄 统计 会计 金融 教师 工程师 1 0 1 0 0 0 0 0 1 0 1 0 1 1 0 0 0 1 0 0 1 0 1-1配对 0-0配对 不配对 第i个样本和第j个样本在第k个项目的第l类上1-1配对 第i个样本和第j个样本在第k个项目的第l类上0-0配对 第i个样本和第j个样本在第k个项目的第l类上不配对 0-0配对数 1-1配对数 不配对数 表中的样本距离d12=6/7=0.8571429 R中的距离函数 Usage dist(x, method = euclidean, diag = FALSE, upper = FALSE, p = 2) Description This function computes and returns the distance matrix computed by using the specified distance measure to compute the distances between the rows of a data matrix. x:a numeric matrix, data frame or dist object. method :the distance measure to be used. This must be one of euclidean, maximum, manhattan, canberra,