[求助]高人：读取观察值的程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

高人：

     下列一组数据： 

1

.

.

1

.

.

1

1

.

1

.

.

.

.

1

1、怎样编程，来统计1出现的次数（按竖行输出下列形式） 

1

.

.

2

.

.

3

4

.

5

.

.

.

.

6

2、怎样编程，数字1的间隔次数（按竖行输出下列形式） 

.

.

2

.

.

2

.

.

1

.

.

.

.

4

.

 求助高手帮我。       谢谢！！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：怎样编程 求助高手 求助 程序 高人 观察

无能为力

proc iml;

iml;

/*the following program replace the jth 1 in a vector A by j */

A={1 1 0 6 1 0 1};

len=ncol(A);

j=0; /* j denotes the jth 1 in A;*/

1 1 0 6 1 0 1};

len=ncol(A);

j=0; /* j denotes the jth 1 in A;*/

0; /* j denotes the jth 1 in A;*/

do i=1 to len; /*A dnotes the ith element of A;*/

do i=1 to len; /*A dnotes the ith element of A;*/

if A=1 then do;

j=j+1;

A=j;

end;

end;

print A;

if A=1 then do;

j=j+1;

A=j;

end;

end;

print A;

1;

A=j;

end;

end;

print A;

end;

end;

print A;

end;

print A;

print A;

quit;

;

[此贴子已经被作者于2008-1-7 6:24:41编辑过]

proc iml;

/*the following program replace the jth 1 in a vector A by j */

  A={1 1 0 6 1 0 1}; /* an other example*/

   len=ncol(A);

    j=0;            /* j denotes the jth 1 in A;*/

   do i=1 to len;  /*A dnotes the ith element of A;*/

       if A=1 then do;

               j=j+1;

               A=j;

         end;

   end;

print A;

quit;

data 中使用retain也能做到，相对简洁一些。

Thanks for the reminder, I modified the code a little bit, looks little better.

data one;

    input x @@;

      cards;

       1 2 1 1 0 0 2 1 1 8

;

 

 data two;

      set one;

       retain j 0;

       do i=1 to _N_;

           if x=1 then do;

               j=j+1;

               x=j;

                end;

       end;

         drop j i;

 run;

proc print noobs; run;

yzhouwen

    非常谢谢这位高人，感谢您的帮助！！

 下列这些点代表其他数据（后面还有很多数据），我想在编程后输出时，

不输出其他数字，只统计 1 出现的次数和距上次的间隔次数，输出形式

如下：    谢谢！！

下列一组数据： 

1

.

.

1

.

.

1

1

.

1

.

.

.

.

1

1、怎样编程，来统计1出现的次数（按竖行输出下列形式） 

1

.

.

2

.

.

3

4

.

5

.

.

.

.

6

2、怎样编程，数字1的间隔次数（按竖行输出下列形式） 

.

.

2

.

.

2

.

.

1

.

.

.

.

4

.

[此贴子已经被作者于2008-1-7 22:57:26编辑过]