Возвращает значение в функции и получает 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) 
} 

После определения функции, когда я использую его у меня есть, что это NULL, но я не понимаю, почему. Спасибо за вашу помощь, и я надеюсь написать понятный вопрос: 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) 
}