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)
}