0

编辑我发现脚本中的 y(c) 给出了这个错误：

Subscript indices must either be real positive integers or logicals.

但在示例脚本中，y(c) 打印 y 被审查的值。

我正在尝试使用我找到的脚本来分析审查数据。该脚本本身工作正常，但是当我尝试将它与我自己的数据一起使用时，我得到了一个错误。

这是示例代码：

% I have some (x,y) data
n = 100;
x = 10*rand(n,1);
y = 5 + .5*x + randn(n,1);
plot(x,y,'o','Color',[.8 .8 .8]);

% But it's censored, I can't observe values larger than 8
c = y>8
o = min(y,8);
line(x,o,'Marker','o','Color','b','LineStyle','none')

% If I fit a line to the data I observe, no good
b = polyfit(x,o,1)
s = norm(o-polyval(b,x))/sqrt(n)
xx = linspace(0,10);
line(xx,polyval(b,xx),'Color','r')

% Instead I need a likelihood function that taket it censoring into account
nloglik = @(p) - sum(log(normpdf(o(~c),p(1)*x(~c)+p(2),p(3)))) ...
               - sum(log(1-normcdf(o(c),p(1)*x(c)+p(2),p(3))));

nloglik = @(p) - sum(log(normpdf(tof(~c),p(1)*z(~c)+p(2),p(3)))) ...
           - sum(log(1-normcdf(tof(c),p(1)*z(c)+p(2),p(3))));
p = fminsearch(nloglik,[b,s])

这是我的代码：

load('UV.mat') % is an 18 column array

for i = 1 : length(UV{1,7})
    if UV{1,7}(i) ~= 0
        x(i)=log10(UV{1,4}(i));
        y(i) = UV{1,7}(i);
    end
end
c=zeros(length(y),1); % c stands for censored
for i=1:length(y)
    if UV{1,8}{i} == 'u' % u stands for upper limit
        c(i)=1;
    end
end

b = polyfit(x,y,1)
s = norm(y-polyval(b,x))/sqrt(length(x))
nloglik = @(p) - sum(log(normpdf(y(~c),p(1)*x(~c)+p(2),p(3)))) ...
               - sum(log(1-normcdf(y(c),p(1)*x(c)+p(2),p(3))));
p = fminsearch(nloglik,[b,s])

错误是：

Subscript indices must either be real positive integers or logicals.

Error in @(p)-sum(log(normpdf(y(~c),p(1)*x(~c)+p(2),p(3))))-sum(log(1-normcdf(y(c),p(1)*x(c)+p(2),p(3))))


Error in fminsearch (line 191)
fv(:,1) = funfcn(x,varargin{:});

Error in zWithCensoring (line 22)  %zWithCensoring is the name of my script
p = fminsearch(nloglik,[b,s])

我试图调试它，但 p 似乎在定义之前就被调用了。我发现nloglik是一个带有输入参数p的函数。

我的脚本如何给出此错误，而不是示例脚本？我该如何克服这个错误？

4

2 回答 2

1

y(c) 给出了错误，不知道为什么它在示例脚本中起作用。手动将 ya 和 yc、xa 和 xc 分别设为 y(~c)、y(c)、x(~c) 和 x(c)，现在可以使用

编辑：

我让 ya, yc, xa, xc 像这样：

for i =1:length(y)
    if UV{1,8}{i} == 'u'
        yc(j)=y(i);
        xc(j)=x(i);
        j=j+1;
    else
        ya(k)=y(i);
        xa(k)=x(i);
        k=k+1;
    end
end

并在函数 nloglik 中将这些替换为 y(~c)、y(c)、x(~c) 和 x(c)

于 2015-04-15T04:54:25.330 回答
1

将变量 c 更改为逻辑变量，即：

c = logical(c)

在将其用于索引之前。

或者，创建 'c' 作为逻辑开始：

c= false(length(y),1); % c stands for censored
for i=1:length(y)
    if UV{1,8}{i} == 'u' % u stands for upper limit
        c(i)=true;
    end
end

如果这不起作用，发布工作代码将有助于解决问题。

于 2015-04-15T05:16:55.467 回答