求将MATLAB代码改成R

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

function kstar=CCSS(Y)%kstar返回结构断点位置，无结构断点时返回-1

    ct=0;

    l=length(Y);

    ck=zeros(l,1);dk=zeros(l,1);

    sy=var(Y);a=zeros(l,1);

    for kk=1:l

        a(kk)=(Y(kk)-(sum(Y(1:kk))/kk))/sqrt((1+1/kk)*sy);

    end

    for i=1:l

        ct=ct+a(i)^2;

    end

    ck(1)=a(1)^2;

    for j=2:l

        ck(j)=ck(j-1)+a(j).^2;

    end

    for k=1:(l-1)

        dk(k)=ck(k)/ct-k/l;

    end

    dk(l)=0;

    [maxk,kstar]=max(sqrt(l/2)*abs(dk));

    if maxk<=1.628

        kstar=-1;

    end

end

function  ICSS(Y,series,t1,t2)%Y为原始序列，series为要检验的序列

k=CCSS(series);

t3=t1+k-1;

if k~=-1

    t3%结构变点在Y中位置

    ICSS(Y,Y(t1:t3),t1,t3);

    ICSS(Y,Y(t3:t2),t3,t2);

end

end

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：matlab代码 MATLAB atlab matla Mat 代码转换

这位朋友你这个程序搞得怎么样了