Update 09.Predict_Envs.R

Ryougi-yukiro · web-flow · commit 9f5fd8441c79 · 2026-05-19T19:59:08.000+08:00
diff --git a/R/09.Predict_Envs.R b/R/09.Predict_Envs.R
@@ -1255,7 +1255,7 @@ MMPrdM<-function(pheno,geno,env,para,Para_Name,model,depend=NULL,reshuffle=NULL,
             PrdF<-rbind(PrdF,PrdM_wide)
             }
         Prd_mean<-PrdF %>% group_by(line_code) %>% summarize_all(mean)
-        Prd_mean<-as.data.frame(Prd_mean)*
+        Prd_mean<-as.data.frame(sort(Prd_mean))
         return(Prd_mean)
         #Correlation within environment 50 times
       }

Original file line number	Diff line number	Diff line change
`@@ -1255,7 +1255,7 @@ MMPrdM<-function(pheno,geno,env,para,Para_Name,model,depend=NULL,reshuffle=NULL,`
`1255`	`1255`	`PrdF<-rbind(PrdF,PrdM_wide)`
`1256`	`1256`	`}`
`1257`	`1257`	`Prd_mean<-PrdF %>% group_by(line_code) %>% summarize_all(mean)`
`1258`		`- Prd_mean<-as.data.frame(Prd_mean)*`
	`1258`	`+ Prd_mean<-as.data.frame(sort(Prd_mean))`
`1259`	`1259`	`return(Prd_mean)`
`1260`	`1260`	`#Correlation within environment 50 times`
`1261`	`1261`	`}`