From 43e395ffcf37ea80d857c4bd17cfdaea0ec73613 Mon Sep 17 00:00:00 2001 From: Alex Gebben Work Date: Thu, 4 Dec 2025 17:34:27 -0700 Subject: [PATCH] Fixed a typo --- TerraPower_Values.r | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/TerraPower_Values.r b/TerraPower_Values.r index 84c7fc7..d630174 100644 --- a/TerraPower_Values.r +++ b/TerraPower_Values.r @@ -12,7 +12,7 @@ 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[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*2.3) #TerraPower assumes 80% have families and the average family is 2.3 people +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 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 @@ -21,13 +21,10 @@ TEMP$Date <- DATES[1:nrow(TEMP)] TEMP$Year <- year(TEMP$Date) TEMP$Add_Emp <- c(0,diff(TEMP$In_Migration)) TEMP <- TEMP %>% group_by(Year) %>% summarize(Temp_Emp_Migration=sum(Add_Emp),Total_Wages=sum(Average_Wages_Present_USD*In_Migration),Current_Temp_Workers=round(mean(In_Migration) )) -TEMP[,"Total_Migration"] <- round(TEMP[,2]+TEMP[,2]*0.37*2.3) #TerraPower assumes 37% have families and the average family is 2.3 people +TEMP[,"Total_Migration"] <- round(TEMP[,2]+TEMP[,2]*0.37*3.05) #TerraPower assumes 37% will bring families and the average family is 3.2 people, but states Wyoming averages 3.05 family save TEMP[,2] <- round(TEMP[,2]) TEMP[4:7,2] <- TEMP[4:7,2]-1 TEMP[7,2] <- TEMP[7,2]-1 - TEMP[4:7,5] <- TEMP[4:7,5] -2 TEMP[7,5] <- TEMP[7,5] -1 - -