2016-09-28 7 views
0

次の結果を与える次のコードがRにあります。セルのデータ形式を修正しました - R

[,1]  [,2]  [,3]  [,4]  [,5]   [,6]   [,7]   [,8] 
[1,]  1.0  2.0  3.0  4.0  10.0 3.700000e+01   NA   NA 
[2,]  -1.0  -1.0  -1.0  -1.0  -1.0 -8.987342e-01 -5.898734e+00   NA 
[3,] 549492.9 217514.1 732960.6 506807.3 113711.8 1.393393e+05 2.259826e+06   NA 
[4,]  1.0  2.0  3.0  4.0  10.0 2.200000e+01 3.700000e+01   NA 
[5,]  -1.0  -1.0  -1.0  -1.0  -1.0 -8.846154e-01 -8.987342e-01  -6.78335 
[6,] 549492.9 217514.1 732960.6 506807.3 113711.8 2.376512e+05 1.393393e+05 2497477.34198 

問題は結果が私の希望のフォーマットではないことです。つまり、最初と4番目の行はint(1から59までの数字)でなければなりません。 2番目と5番目の行は、(-1と0または小さな浮動小数点数の形式で表示され、-8.987342e-01ではなく)表示されなければならず、最終的に3番目と最後の行は通常の浮動小数点形式で表示され、 a 2.376512e+05

どのように私はそれを解決することができますか?

おかげ

コード:

Time_Score_Estimation <- function(Paths) { 
     Result<-c() 
     for (i in 1: nrow(Paths)) 
     { 
     ROW <- matrix(nrow=2,ncol=ncol(Paths)) 
     for (j in 1:length(Paths[i,][!is.na(Paths[i,])])) 
     { 
      LO <- Paths[i,j] 
      ROW[1,j] <- mean(LTRS.Transaction[which(LTRS.Transaction[,8] == LO),5]) 
      ROW[2,j] <- mean(LTRS.Transaction[which(LTRS.Transaction[,8] == LO),6]) 
     } 
     ROW[1,j+1] <- sum(ROW[1,][!is.na(ROW[1,])]) 
     ROW[2,j+1] <- sum(ROW[2,][!is.na(ROW[2,])]) 
     Result<- rbind(Result,Paths[i,],ROW) 
     } 
     return(Result) 
    } 

答えて

関連する問題