Estatística no Programa R
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Erro em programa

Ir para baixo

Erro em programa Empty Erro em programa

Mensagem  Nayara Qua Out 24, 2012 4:09 pm

Bpa tarde, estou com um problema neste programa. Algué, pode me ajudar?

Moram1=read.table("Moram.csv",header=F,sep="")
Moram2=read.table("MoramCasos.csv",header=F,sep="")

MV=matrix(0,24,24)
diag(MV)=1
for (i in 1:24) {
for (j in 1:10) {
x=Moram1[i,j]
if(x>0){
MV[i,x]=1
MV[i,x]=1
}
}
}


A=1:24
B=1:24
L=1:24
x=1:576
for(i in A){
for (j in B){
for(i!=i){
M=Moram2[,2]
Media=mean(M)
L[i]=(M[i]-Media)/sd(M)
L[j]=(M[j]-Media)/sd(M)
L2=L^2
W=MV[i,j]*L2
i=1:24
j=1:24
S=sum(MV[i,j])
So=sum(MV[i,j])
a=c(1:552)
b=c(1:552)
x=c(1:552)
j=1
i=1:24
while (j<=24){
a[x]=MV[i,j]
j=j+1
r=1:552
Sw=sum(a[r]*L2)
I=(1/So)*Sw
}
}
}
}


Essa é a saída no R quando eu rodo o programa...

> A=1:24
> B=1:24
> L=1:24
> x=1:576
> for(i in A){
+ for (j in B){
+ for(i!=i){
Erro: '!=' inesperado em:
" for (j in B){
for(i!="
> M=Moram2[,2]
> Media=mean(M)
> L[i]=(M[i]-Media)/sd(M)
> L[j]=(M[j]-Media)/sd(M)
> L2=L^2
> W=MV[i,j]*L2
Erro: índice fora de limites
> i=1:24
> j=1:24
> S=sum(MV[i,j])
> So=sum(MV[i,j])
> a=c(1:552)
> b=c(1:552)
> x=c(1:552)
> j=1
> i=1:24
> while (j<=24){
+ a[x]=MV[i,j]
+ j=j+1
+ r=1:552
+ Sw=sum(a[r]*L2)
+ I=(1/So)*Sw
+ }
Houve 24 avisos (use warnings() para vê-los)
> }
Erro: '}' inesperado em " }"
> }
Erro: '}' inesperado em " }"
> }
Erro: '}' inesperado em "}"
>

Nayara

Mensagens : 1
Data de inscrição : 24/10/2012

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos