From 38ce251327ef86fcde1f2d62a8c8c9b28124090d Mon Sep 17 00:00:00 2001 From: Alex Date: Fri, 5 Dec 2025 11:36:14 -0700 Subject: [PATCH] Working on TerraPower numbers --- TerraPower_Values.r | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/TerraPower_Values.r b/TerraPower_Values.r index d630174..fba5cdc 100644 --- a/TerraPower_Values.r +++ b/TerraPower_Values.r @@ -9,10 +9,14 @@ for(YEAR in 2026:(2026+NUM_YEARS)){ PERM$Date <- DATES[1:nrow(PERM)] PERM$Year <- year(PERM$Date) PERM$Add_Emp <- c(0,diff(PERM$In_Migration)) -PERM <- PERM %>% group_by(Year) %>% summarize(Perm_Emp_Migration=sum(Add_Emp),Total_Wages=sum(Average_Wages_Present_USD*In_Migration),Current_Perm_Workers=round(mean(In_Migration) )) +PERM %>% group_by(Year) %>% mutate(Total_Wages=Average_Wages_Present_USD*In_Migration) %>% group_by(Year) %>% summarize(Total_Wages=sum(Total_Wages),Total_Wages=sum(ifelse(Year==2031,Total_Wages*3,Total_Wages))) +%>% summarize(Perm_Emp_Migration=sum(Add_Emp),Total_Wages=sum(Average_Wages_Present_USD*In_Migration),Current_Perm_Workers=round(mean(In_Migration) )) PERM[7,3]<-PERM[7,3]*3 #4 months (1/3) year only seen in sample PERM[,"Total_Migration"] <- round(PERM[,2]+PERM[,2]*0.8*3.05) #TerraPower assumes 80% have families and the average family is 3.2 people, but in wyoming the average is stated as 3.05 +PERM +TEST <- read_csv("./Data/Raw_Data/TerraPower_Report_Data/Monthly_In_Migration_Operations_Workforce.csv") +TEST[59,]*12 TEMP <- read_csv("./Data/Raw_Data/TerraPower_Report_Data/Monthly_In_Migration_Construction_Workforce.csv") TEMP[,1] <- TEMP[,1]*0.41 #TerraPower assumes 41% migrate into Lincoln