返回一個函數中的值並獲得NULL

Question

我試圖構建這個函數。但我不知道爲什麼當我調用它時，函數的輸出沒有出現。 這是我創造的功能：

df = data.frame(matrix(rnorm(100), nrow=10)) 
Criterio<-rep('+',7) 

modtop<-function(Tpropio,Criterio){ 
suma<- apply(Tpropio,2,sum) 
P<-sweep(Tpropio, 2, suma, `/`) 
maximo<-apply(P,2,max) 
minimo<-apply(P,2,min) 
desviacion<-apply(P,2,sd) 
W<-desviacion/sum(desviacion) 
ncriterios<-length(suma) 
ideal<-vector(mode="numeric",length=ncriterios) 
nadir<-vector(mode="numeric",length=ncriterios) 
for(i in 1:ncriterios){ 
    if(Criterio[i]=='+'){ 
    ideal[i]=maximo[i] 
    nadir[i]=minimo[i] 
    }else{ 
     ideal[i]=minimo[i] 
     nadir[i]=maximo[i] 
    } 
    } 
} 
dipos<-matrix(data=NA,ncol=ncriterios,nrow=dim(P)[1]) 
for(i in 1:ncriterios){ 
    dipos[,i]<-(P[,i]-ideal[i])^2*W[i] 
} 
dipos<-apply(dipos,1,sum) 
dipos<-sqrt(dipos) 

dineg<-matrix(data=NA,ncol=ncriterios,nrow=dim(P)[1]) 
for(i in 1:ncriterios){ 
    dineg[,i]<-(P[,i]-nadir[i])^2*W[i] 
} 
dineg<-apply(dineg,1,sum) 
dineg<-sqrt(dineg) 
T<-dineg+dipos 
T<-dineg/T 
resulT<-data.frame(T) 
row.names(resulT)<-row.names(Tpropio) 
return(resulT) 
} 

定義功能後，當我使用它，我有一個是空的，但我不明白爲什麼。謝謝你的幫助，我希望寫一個可以理解的問題：D

Answer 1

我找到了答案。第一次有一個額外的}。所以結果會是這樣的：

df = data.frame(matrix(rnorm(100), nrow=10)) 
Criterio<-rep('+',7) 
modtop<-function(Tpropio,Criterio){ 
suma<- apply(Tpropio,2,sum) 
P<-sweep(Tpropio, 2, suma, `/`) 
maximo<-apply(P,2,max) 
minimo<-apply(P,2,min) 
desviacion<-apply(P,2,sd) 
W<-desviacion/sum(desviacion) 
ncriterios<-length(suma) 
ideal<-vector(mode="numeric",length=ncriterios) 
nadir<-vector(mode="numeric",length=ncriterios) 
for(i in 1:ncriterios){ 
    if(Criterio[i]=='+'){ 
    ideal[i]=maximo[i] 
    nadir[i]=minimo[i] 
    }else{ 
     ideal[i]=minimo[i] 
     nadir[i]=maximo[i] 
    } 
    } 

dipos<-matrix(data=NA,ncol=ncriterios,nrow=dim(P)[1]) 
for(i in 1:ncriterios){ 
    dipos[,i]<-(P[,i]-ideal[i])^2*W[i] 
} 
dipos<-apply(dipos,1,sum) 
dipos<-sqrt(dipos) 

dineg<-matrix(data=NA,ncol=ncriterios,nrow=dim(P)[1]) 
for(i in 1:ncriterios){ 
    dineg[,i]<-(P[,i]-nadir[i])^2*W[i] 
} 
dineg<-apply(dineg,1,sum) 
dineg<-sqrt(dineg) 
T<-dineg+dipos 
T<-dineg/T 
resulT<-data.frame(T) 
row.names(resulT)<-row.names(Tpropio) 
return(resulT) 
}