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
Проблема заключается не в желаемом формате. Я имею в виду, что первая и четвертая строки должны быть int (число от 1 до 59). Вторая и пятая строки должны быть представлены в формате (-1 и 0 или небольшого поплавка, а не как -8.987342e-01), и, наконец, третья и пятая строки должны быть представлены в виде обычного поплавка, а не как 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)
}