楼主: bobguy
941 0

[程序分享] remove zeros in a covariance matrix [推广有奖]

学科带头人

7%

还不是VIP/贵宾

-

威望
0
论坛币
14187 个
通用积分
28.9279
学术水平
344 点
热心指数
363 点
信用等级
228 点
经验
104882 点
帖子
1846
精华
0
在线时间
1608 小时
注册时间
2008-7-18
最后登录
2019-3-8

中级热心勋章

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
Sometime I need to remove zeros in a covariance matrix in order to calculate eigenvalues of the sub-matrix.  Here is an utility to remove the corresponding rows and columns of zeros.

proc iml;
b={1 0 3 0 5,
   0 0 0 0 0,
   1 0 3 0 5,
   0 0 0 0 0,
   1 0 3 0 5}
   ;


start remove_rows_cols(a);
***a must be a square matrix**;
n=nrow(a);
nzero=ncol(loc(a[1:5]=0));
idx=loc(a=0);

return (shape(remove(a,idx),n-nzero,n-nzero));
finish;

c=remove_rows_cols(b);
print b c;


quit;
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

关键词:covariance variance varian matrix REMOVE

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-5-4 09:21