Erro em programa

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Erro em programa

Mensagem  Nayara em 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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum