alex/Population_Study
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Working on TerraPower numbers

Browse Source
This commit is contained in:
Alex 2025-12-05 11:36:14 -07:00
parent 43e395ffcf
commit 38ce251327
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
TerraPower_Values.r
View File

@ -9,10 +9,14 @@ for(YEAR in 2026:(2026+NUM_YEARS)){
PERM$Date <- DATES[1:nrow(PERM)] PERM$Date <- DATES[1:nrow(PERM)]
PERM$Year <- year(PERM$Date) PERM$Year <- year(PERM$Date)
PERM$Add_Emp <- c(0,diff(PERM$In_Migration)) 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[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[,"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 <- 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 TEMP[,1] <- TEMP[,1]*0.41 #TerraPower assumes 41% migrate into Lincoln