diff --git a/Data/CREP_and_Fallow/Create_CREP_Data.r b/Data/CREP_and_Fallow/Create_CREP_Data.r
index e4cdff2..7bf1926 100644
--- a/Data/CREP_and_Fallow/Create_CREP_Data.r
+++ b/Data/CREP_and_Fallow/Create_CREP_Data.r
@@ -15,5 +15,75 @@ ACRES <- c(144,144,210,60,130,120.4,120,121.5,172.09,113,191,116.5,120,124,120,1
 CREP_TEMP <- cbind(CONTRACT_NUMBER,FIRST_FALLOW_YEAR,RETURN_YEAR,ACRES,read_csv("CREP_Temp.csv")) %>% as_tibble %>% mutate(program='CREP',contract_type='Temp')
 CREP_TEMP  %>% full_join(CREP_PERM) 
 CREP_PERM
+######SBD1 Fallow Program
+CONTRACT_NUMBER <-  c(paste("Fallow Parcel ",1:23),paste("Fallow Parcel ",1:27),c(paste("Fallow Parcel ",1:9),paste("Fallow Parcel ",11:33)))
+
+CONTRACT_TERM <- c(
+		   c(rep(4,10),rep(1,4),rep(4,4),rep(2,2),4,rep(2,2)),
+		   c(rep(4,14),rep(2,2),4,rep(2,2),rep(4,8)),
+		   c(rep(4,19),2,4,rep(2,6),rep(1,2),rep(4,3))
+)
+length(CONTRACT_TERM )
+length(c(rep(4,17),rep(2,6),rep(1,2),rep(4,3)))
+
+
+FIRST_FALLOW_YEAR  <- c(
+	c(rep(2018,9),rep(2019,3),2018,rep(2019,10)),
+	c(rep(2018,9),rep(2019,13),rep(2020,5)),
+	c(rep(2018,9),2020,rep(2019,4),2020,rep(2019,5),rep(2020,3),rep(2021,9))
+)
+length(c(rep(2018,9),2020,rep(2019,4),2020,rep(2019,5),rep(2020,3),rep(2021,9)))
+
+RETURN_YEAR <- CONTRACT_TERM +FIRST_FALLOW_YEAR
+RETURN_YEAR 
+
+ACRES <- c(
+	   c(115,126,126,120,130,120,84.2,120,126,120,120,120,123,122.78,106,120,115,45,120,120,120,120,140),
+	   c(145,126,126,120,130,120,84.2,120,126,120,106,120,115,45,rep(120,4),140,rep(120,3),121,120,125,38,124),
+ c(126,120,120,115,130,120,126,126,84.2,125,120,115,120,45,106,120,120,38,126,121,120,116,116,120,113,115,122,480,480,118,120,75)
+	   )
+length( c(126,120,120,115,130,120,126,126,84.2,125,120,115,120,45,106,120,120,38,126,121,120,116,116,120,113,115,122,480,480,118,120,75))
+
+cbind(CONTRACT_NUMBER,FIRST_FALLOW_YEAR,RETURN_YEAR,ACRES)
+length(CONTRACT_NUMBER)
+length(FIRST_FALLOW_YEAR)
+length(ACRES)
+length(CONTRACT_TERM)
+
+SBD1_TEMP_FALLOW <- cbind(CONTRACT_NUMBER,FIRST_FALLOW_YEAR,RETURN_YEAR,ACRES,read_csv("SBD1_Temp_Fallow.csv")) %>% as_tibble %>% mutate(program='SBD Temp Fallow',contract_type='Temp',wdid1=as.character(wdid1),wdid2=as.character(wdid2),wdid3=as.character(wdid3),wdid4=as.character(wdid4),wdid5=as.character(wdid5),wdid6=as.character(wdid6),wdid7=as.character(wdid7),wdid8=as.character(wdid8))
+SBD1_TEMP_FALLOW 
+nrow(SBD1_TEMP_FALLOW )
+(SBD1_TEMP_FALLOW  %>% filter(ACRES==125))[,-1:-1]
+#Little changes so manually add 2022 data
+ADDITIONS_2022 <- rbind(SBD1_TEMP_FALLOW[6,]%>% mutate(wdid1='2705334',CONTRACT_NUMBER='Fallow Parcel 34',ACRES=119,FIRST_FALLOW_YEAR=2022,RETURN_YEAR=2023,Data_Year=2022),SBD1_TEMP_FALLOW[6,]%>% mutate(wdid1='2008616',CONTRACT_NUMBER='Fallow Parcel 34',wdid2='20131888',ACRES=125,FIRST_FALLOW_YEAR=2022,RETURN_YEAR=2023,Data_Year=2022))
+SBD1_TEMP_FALLOW <- rbind(SBD1_TEMP_FALLOW,ADDITIONS_2022)
+#####2023 data
+CONTRACT_NUMBER <- as.character(1:11 )
+FIRST_FALLOW_YEAR <- c(rep(2020,4),rep(2021,7))
+RETURN_YEAR <- c(rep(2024,6),rep(2025,5))
+ACRES <- c(38.09,125,121,120,120,110,73.46,50,119,120,118)
+wdid1 <- c(2013693,2005731,2013884,2706159,2705471,2705395,2008226,2008591,2009461,2009114,2010568)
+wdid2 <- c(rep(NA,5),2705517,2014273,NA,2009462,NA,2005035)
+wdid3 <- c(rep(NA,10),2014173)
+
+SBD1_TEMP_FALLOW
+DATA_2023 <-cbind(CONTRACT_NUMBER,FIRST_FALLOW_YEAR,RETURN_YEAR,ACRES)%>% as_tibble %>% mutate(Data_Year=2023) %>% cbind(wdid1,wdid2,wdid3) %>% as_tibble %>% mutate(CONTRACT_NUMBER=as.character(CONTRACT_NUMBER),FIRST_FALLOW_YEAR=as.numeric(FIRST_FALLOW_YEAR),RETURN_YEAR=as.numeric(RETURN_YEAR),ACRES=as.numeric(ACRES),wdid1=as.character(wdid1),wdid2=as.character(wdid2),wdid3=as.character(wdid3),wdid4=NA,wdid5=NA,wdid6=NA,wdid7=NA,wdid8=NA,program='SBD Temp Fallow',contract_ype='Temp')
+SBD1_TEMP_FALLOW  <- SBD1_TEMP_FALLOW %>% full_join(DATA_2023 )
+#####2024 data
+
+
+
+
+###########Half Fallow Program
+
+CONTRACT_NUMBER <-  paste("Half Usage",1:38)
+FIRST_FALLOW_YEAR  <-  rep(2020,38)
+RETURN_YEAR  <-  rep(2021,38)
+LIMIT <- c(90.6,91.5,83.4,85.2,89.8,82.4,81.0,72.0,98.8,97.8,92.2,94.0,111.7,118.0,102.0,92.1,117.0,99.4,95.7,149.0,54.6,22.6,102.4,97.5,211.6,104.5,47.5,76.2,34.5,74.1,53.0,85.7,130.7,97.4,115.0,56.0,33.4,45.9)
+ACRES <- c(111.92,119.22,116.82,117.26,119.1,123,118.03,106.98,109.15,120,117,128,126,126,125,121,121,126,121,120,43,24,138,137,117,121.5,142,126,174.22,118,118,119,126,126,120,114,126,63)
+HALF_FALLOW <- cbind(CONTRACT_NUMBER,FIRST_FALLOW_YEAR,RETURN_YEAR,ACRES,LIMIT,read_csv("SBD1_Half_Fallow.csv")) %>% as_tibble %>% mutate(program='SBD Half Fallow',contract_type='Temp')
+HALF_FALLOW  %>% tail
+
+cbind(CONTRACT_NUMBER,ACRES,LIMIT)
 
 
diff --git a/Data/CREP_and_Fallow/SBD1_Half_Fallow.csv b/Data/CREP_and_Fallow/SBD1_Half_Fallow.csv
new file mode 100644
index 0000000..42c238e
--- /dev/null
+++ b/Data/CREP_and_Fallow/SBD1_Half_Fallow.csv
@@ -0,0 +1,39 @@
+wdid1,wdid2,wdid3,wdid4
+2008026
+2006428, 2005137
+2013801, 2998539
+20138584, 2008504
+2013375, 2005155
+2005876, 2009550,2013330
+2006502, 2009205
+2006504, 2009147
+2006474, 2008502
+2012166, 2012163
+2005340, 2005049
+2008962, 2008963
+2013506, 2008965
+2005046, 2005410
+2008457, 2008452
+2009305, 2013915
+2005207, 2014155
+2705247
+2005176, 2006011
+2005645
+2005033
+2010719
+2008235, 2011333
+2008397, 2008406
+2005527, 2012676
+2008197, 2013969
+2008040, 2010723
+2705050, 2705058
+2009609
+2706270
+2705797
+2705436, 2705437,2705644, 2706071
+2012450
+2012668
+2705235
+2006567
+2013548
+2013563
diff --git a/Data/CREP_and_Fallow/SBD1_Temp_Fallow.csv b/Data/CREP_and_Fallow/SBD1_Temp_Fallow.csv
new file mode 100644
index 0000000..40825d7
--- /dev/null
+++ b/Data/CREP_and_Fallow/SBD1_Temp_Fallow.csv
@@ -0,0 +1,83 @@
+"Data_Year","wdid1","wdid2","wdid3","wdid4","wdid5","wdid6","wdid7","wdid8"
+2019,2705499,2706226,,,
+2019,2006339,2014084,2014083,2006340,2014085
+2019,2008041,2008042,2014477,,
+2019,2706257,2011125,2005062,,
+2019,2005399,,,,
+2019,2005398,,,,
+2019,2705546,,,,
+2019,2006288,2006289,2013558,2014265,
+2019,2705223,2706223,,,
+2019,2005468,2005515,,,
+2019,2705106,,,,
+2019,2705471,,,,
+2019,2705112,2706284,,,
+2019,2706284,2705112,,,
+2019,2005461,2005497,,,
+2019,2705240,,,,
+2019,2012648,2012647,,,
+2019,2014256,,,,
+2019,27051131,,,,
+2019,2705517,,,,
+2019,2705138,,,,
+2019,2705131,2706259,,,
+2019,2705137,2705130,,,
+2020,2005866,2012298,2013762,,
+2020,2006339, 2014084, 2014083, 2006340, 20140850
+2020,2006574, 2006575
+2020,2005592
+2020,2005399
+2020,2005398
+2020,2705546
+2020,2006288, 2006289,2013558, 2014265
+2020,2010696, 2014473
+2020,2005468, 2005515
+2020,2005461, 2005497
+2020,2705240
+2020,2012648, 2012647
+2020,2014256
+2020,2705113
+2020,2705517
+2020,2705138
+2020,2705131, 2706259
+2020,2705137, 2705130
+2020,2006288, 2006289
+2020,2005468, 2005515
+2020,2005445, 2005519
+2020,2013884
+2020,2706159
+2020,2005731
+2020,2013693
+2020,2013712
+2021,2008041, 2008042, 2014477
+2021,2006289, 2014265, 2006288
+2021,2705350, 2705649
+2021,2705306, 2706239
+2021,2005399
+2021,2005398
+2021,2008146,2008147,2013953
+2021,2006339,2014084,2014083,2006340
+2021,2705546
+2021,2005731
+2021,2005471, 2005518,201446,2014509
+2021,2012648
+2021,2705240
+2021,2014256
+2021,2012647
+2021,2005445, 2005509, 2014211,2014012
+2021,2705138
+2021,2013693
+2021,2010696, 2014473
+2021,2013884
+2021,2706159
+2021,2009835,2009836
+2021,2013625
+2021,2010328, 2010329
+2021,2010330, 2014290
+2021,2009617
+2021,2005134, 2005534
+2021,2705169, 2705170, 2705103, 2706287, 2705104, 2705108, 2705107, 2705109
+2021,2705095, 2705096, 2705482, 2706285, 2705465, 2706289,2706114
+2021,2010568, 2005035, 2014173
+2021,2009114
+2021,2008226, 2014273