Erro em programa
Página 1 de 1
Erro em programa
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 "}"
>
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
Tópicos semelhantes
» Erro em comando read.table
» Procedimento similar ao PROC MERGE do SAS
» Erro na função PERSP
» ScottKnott Erro ao rodar dados
» Erro ao tentar ler arquivo do excel
» Procedimento similar ao PROC MERGE do SAS
» Erro na função PERSP
» ScottKnott Erro ao rodar dados
» Erro ao tentar ler arquivo do excel
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|