fetchdata

.Rhistory

@@ -0,0 +1,512 @@
+library(ggplot2)
+I = c(0,0,0,0,.005,0,.002,.01,.012,.01,.012,.0,.022,.020,.017,.03,.015,.052,.072,.06,.062,.062,.052,.047,.065,.09,.082,.077,.037,.017,.067)
+data = data.frame(I,II,III,IV,V,VI,VII)
+ggplot(data) + geom_point()
+ggplot(data[I]) + geom_point()
+ggplot(data[I],aes(x,y)) + geom_point()
+data
+mtcars
+data = rbind(I,II,III,IV,V,VI,VII)
+data
+ggplot(data,aes(x="I",y="[],1]")) + geom_point()
+plot(data)
+par(mfrow=c(3,3))
+"indigo"
+par(mfrow=c(1,1))
+plot(I, color="red",pch=21,xlab = "bins",ylab="frequency")
+plot(I, gcolor="red",pch=21,xlab = "bins",ylab="frequency")
+plot(I, gcolor="red",pch=21,xlab = "bins",ylab="frequency")
+plot(II, gcolor="orange",pch=21,xlab="bins",ylab="frequency")
+plot(III, gcolor="yellow",pch=21,xlab="bins",ylab="frequency")
+plot(IV, gcolor="green",pch=21,xlab="bins",ylab="frequency")
+plot(V, gcolor="blue",pch=21,xlab="bins",ylab="frequency")
+plot(VI, gcolor="indigo",pch=21,xlab="bins",ylab="frequency")
+plot(VII, gcolor="purple",pch=21,xlab="bins",ylab="frequency")
+plot(VII, gcolor="purple",pch=16,xlab="bins",ylab="frequency")
+plot(I, col="red",pch=16,xlab = "bins",ylab="frequency")
+par(bg="pink")
+plot(I, col="red",pch=16,xlab = "bins",ylab="frequency")
+points(II, col="orange",pch=16)
+plot(I, col="red",pch=16,xlab = "bins",ylab="frequency")
+points(II, col="orange",pch=16)
+points(III, col="yellow",pch=16)
+points(IV, col="green",pch=16)
+points(V, col="blue",pch=16)
+points(VI, col="indigo",pch=16)
+plot(I, col="red",pch=8,xlab = "bins",ylab="frequency")
+points(II, col="orange",pch=8)
+points(III, col="yellow",pch=8)
+points(IV, col="green",pch=8)
+points(V, col="blue",pch=8)
+points(VI, col="indigo",pch=8)
+points(VII, col="purple",pch=8)
+plot(I, col="red",pch=8,xlab = "bins",ylab="frequency")
+points(II, col="orange",pch=8)
+points(III, col="yellow",pch=8)
+points(IV, col="green",pch=8)
+points(V, col="blue",pch=8)
+points(VI, col="indigo",pch=8)
+legend(0,0,legend=c("I","II","III","IV","V","VI","VII")
+)
+legend(0,0,legend=c("I","II","III","IV","V","VI","VII"))
+legend(1,1,legend=c("I","II","III","IV","V","VI","VII"))
+plot(I, col="red",pch=8,xlab = "bins",ylab="frequency")
+points(II, col="orange",pch=8)
+points(III, col="yellow",pch=8)
+points(IV, col="green",pch=8)
+points(V, col="blue",pch=8)
+points(VI, col="purple",pch=8)
+points(VII, col="black",pch=8)
+legend(1,1,legend=c("I","II","III","IV","V","VI","VII"))
+legend(0,1,legend=c("I","II","III","IV","V","VI","VII"))
+legend(1,95,legend=c("I","II","III","IV","V","VI","VII"))
+legend(1,1,legend=c("I","II","III","IV","V","VI","VII"))
+legend(1,1,legend=c("I","II","III","IV","V","VI","VII"),fill="white")
+legend(1,1,legend=c("I","II","III","IV","V","VI","VII"),fill="white",col=c("red","orange","yellow","green","blue","purple","black"))
+legend(legend=c("I","II","III","IV","V","VI","VII"),fill="white",col=c("red","orange","yellow","green","blue","purple","black"))
+legend(0,legend=c("I","II","III","IV","V","VI","VII"),fill="white",col=c("red","orange","yellow","green","blue","purple","black"))
+legend(3,legend=c("I","II","III","IV","V","VI","VII"),fill="white",col=c("red","orange","yellow","green","blue","purple","black"))
+legend(x=0,y=1legend=c("I","II","III","IV","V","VI","VII"),fill="white",col=c("red","orange","yellow","green","blue","purple","black"))
+legend(x=0,y=1,legend=c("I","II","III","IV","V","VI","VII"),fill="white",col=c("red","orange","yellow","green","blue","purple","black"))
+par(bg="pink")
+plot(I, col="red",pch=8,xlab = "bins",ylab="frequency")
+points(II, col="orange",pch=8)
+points(III, col="yellow",pch=8)
+points(IV, col="green",pch=8)
+points(V, col="blue",pch=8)
+points(VI, col="purple",pch=8)
+points(VII, col="black",pch=8)
+legend(x=0,y=1,legend=c("I","II","III","IV","V","VI","VII"),fill="white",col=c("red","orange","yellow","green","blue","purple","black"))
+legend("topleft",legend=c("I","II","III","IV","V","VI","VII"),fill="white",col=c("red","orange","yellow","green","blue","purple","black"))
+legend("topleft",legend=c("I","II","III","IV","V","VI","VII"),col=c("red","orange","yellow","green","blue","purple","black"))
+legend("topleft",legend=c("I","II","III","IV","V","VI","VII"),col=1:7)
+plot(I, col="red",pch=8,xlab = "bins",ylab="frequency")
+points(II, col="orange",pch=8)
+points(III, col="yellow",pch=8)
+points(IV, col="green",pch=8)
+points(V, col="blue",pch=8)
+points(VI, col="purple",pch=8)
+points(VII, col="black",pch=8)
+legend("topleft",legend=c("I","II","III","IV","V","VI","VII"),col=1:7)
+legend("topleft",legend=c("I","II","III","IV","V","VI","VII"),col=c("red","orange","yellow","green","blue","purple","black"))
+plot(I, col="red",pch=8,xlab = "bins",ylab="frequency")
+points(II, col="orange",pch=8)
+points(III, col="yellow",pch=8)
+points(IV, col="green",pch=8)
+points(V, col="blue",pch=8)
+points(VI, col="purple",pch=8)
+points(VII, col="black",pch=8)
+legend("topleft",legend=c("I","II","III","IV","V","VI","VII"),col=c("red","orange","yellow","green","blue","purple","black"))
+legend("topleft",legend=c("I","II","III","IV","V","VI","VII"),col=c("red","orange","yellow","green","blue","purple","black"))
+legend("topleft",legend=c("I","II","III","IV","V","VI","VII"),fill=c("red","orange","yellow","green","blue","purple","black"))
+plot(I, col="red",pch=8,xlab = "Bins",ylab="Frequency")
+points(II, col="orange",pch=8)
+points(III, col="yellow",pch=8)
+points(IV, col="green",pch=8)
+points(V, col="blue",pch=8)
+points(VI, col="purple",pch=8)
+points(VII, col="black",pch=8)
+legend("topleft",legend=c("I","II","III","IV","V","VI","VII"),fill=c("red","orange","yellow","green","blue","purple","black"))
+bins = rep(c(1:31),each=7)
+bins
+1:31
+bins = rep(c((1:31)),each=7)
+1:31
+bins
+bins = rep(c((1:31)),times=7)
+bins
+sample = rep(c("I","II","III","IV","V","VI","VII"), each =31)
+sample
+library(tidyverse)
+I = c(0,0,0,0,.005,0,.002,.01,.012,.01,.012,.0,.022,.020,.017,.03,.015,.052,.072,.06,.062,.062,.052,.047,.065,.09,.082,.077,.037,.017,.067)
+II = c(0,0,.002,0,0,.004,.004,.011,.009,.015,.013,.017,.028,.028,.019,.026,.030,.043,.054,.054,.058,.078,.061,.061,.056,.082,.069,.078,.032,.030,.035)
+III = c(0,0,0,0,0,0,.012,.006,.014,.006,.017,.012,.038,.012,.003,.029,.049,.043,.078,.058,.064,.066,.052,.072,.069,.061,.081,.075,.026,.006,.052)
+IV = c(0,0,0,0,0,.003,.006,.009,.006,.009,.012,.006,.037,.018,.027,.040,.015,.046,.095,.073,.067,.064,.052,.043,.052,.061,.073,.076,.015,.027,.067)
+V = c(0,0,0,0,0,.010,.012,.012,.007,.022,.026,.014,.034,.026,.031,.022,.034,.043,.048,.058,.077,.046,.050,.050,.072,.063,.050,.072,.019,.026,.075)
+install.packages("assertthat")
+library(tidyverse)
+install.packages("Rcpp")
+library(tidyverse)
+I = c(0,0,0,0,.005,0,.002,.01,.012,.01,.012,.0,.022,.020,.017,.03,.015,.052,.072,.06,.062,.062,.052,.047,.065,.09,.082,.077,.037,.017,.067)
+II = c(0,0,.002,0,0,.004,.004,.011,.009,.015,.013,.017,.028,.028,.019,.026,.030,.043,.054,.054,.058,.078,.061,.061,.056,.082,.069,.078,.032,.030,.035)
+III = c(0,0,0,0,0,0,.012,.006,.014,.006,.017,.012,.038,.012,.003,.029,.049,.043,.078,.058,.064,.066,.052,.072,.069,.061,.081,.075,.026,.006,.052)
+IV = c(0,0,0,0,0,.003,.006,.009,.006,.009,.012,.006,.037,.018,.027,.040,.015,.046,.095,.073,.067,.064,.052,.043,.052,.061,.073,.076,.015,.027,.067)
+V = c(0,0,0,0,0,.010,.012,.012,.007,.022,.026,.014,.034,.026,.031,.022,.034,.043,.048,.058,.077,.046,.050,.050,.072,.063,.050,.072,.019,.026,.075)
+VI = c(0,0,0,.002,0,.007,.005,.009,.009,.011,.014,.018,.043,.016,.027,.018,.043,.080,.062,.050,.084,.082,.062,.071,.050,.082,.057,.043,.005,.014,.034)
+VII = c(0,.002,.002,.003,.002,.003,.013,.013,.018,.015,.020,.016,.031,.010,.042,.016,.021,.028,.056,.056,.090,.044,.044,.056,.065,.075,.083,.075,.025,.026,.051)
+bins = rep(c((1:31)),times=7)
+sample = rep(c("I","II","III","IV","V","VI","VII"), each =31)
+values = c(I,II,III,IV,V,VI,VII)
+length(values)
+length(bins)
+length(sample)
+data = data.frame(bins,sample,values)
+data
+ggplot(data) +
+geom_point(mapping=aes(x=bins,y=values,color=sample)) +
+theme_bw()
+ggplot(data) +
+geom_point(mapping=aes(x=bins,y=values,color=sample)) +
+theme_bw() + xlab("Bin") + ylab("Alelles") +
+scale_x_continuous(breaks=(1:31))
+library(tidyverse)
+ggplot(data) +
+geom_point(mapping=aes(x=bins,y=values,color=sample)) +
+theme_bw() + xlab("Bin") + ylab("Alelle Frecuency") +
+scale_x_continuous(breaks=(1:31))
+a = c(9.96,9.97,9.95)
+sd(a)
+b = sd(a)
+b
+help(sd)
+a = c(10.01,10.26,9.96)
+sd(a)
+a = c(9.63,9.74,9.76)
+sd(a)
+a = c(7.24,7.59,8.46)
+sd(a)
+a = c(1.027,1.029,1.026)
+sd(a)
+mean(a)
+2,5/10.27
+2.5/10.27
+10.25/10
+density = c(0.99,1.006,1.027,1.045,1.067)
+concentration = (0.87,2.01,5.02,7.00,10.00)
+concentration = c(0.87,2.01,5.02,7.00,10.00)
+plot(density, concentration)
+library(tidyverse)
+I = c(0,0,0,0,.005,0,.002,.01,.012,.01,.012,.0,.022,.020,.017,.03,.015,.052,.072,.06,.062,.062,.052,.047,.065,.09,.082,.077,.037,.017,.067)
+II = c(0,0,.002,0,0,.004,.004,.011,.009,.015,.013,.017,.028,.028,.019,.026,.030,.043,.054,.054,.058,.078,.061,.061,.056,.082,.069,.078,.032,.030,.035)
+III = c(0,0,0,0,0,0,.012,.006,.014,.006,.017,.012,.038,.012,.003,.029,.049,.043,.078,.058,.064,.066,.052,.072,.069,.061,.081,.075,.026,.006,.052)
+IV = c(0,0,0,0,0,.003,.006,.009,.006,.009,.012,.006,.037,.018,.027,.040,.015,.046,.095,.073,.067,.064,.052,.043,.052,.061,.073,.076,.015,.027,.067)
+V = c(0,0,0,0,0,.010,.012,.012,.007,.022,.026,.014,.034,.026,.031,.022,.034,.043,.048,.058,.077,.046,.050,.050,.072,.063,.050,.072,.019,.026,.075)
+VI = c(0,0,0,.002,0,.007,.005,.009,.009,.011,.014,.018,.043,.016,.027,.018,.043,.080,.062,.050,.084,.082,.062,.071,.050,.082,.057,.043,.005,.014,.034)
+VII = c(0,.002,.002,.003,.002,.003,.013,.013,.018,.015,.020,.016,.031,.010,.042,.016,.021,.028,.056,.056,.090,.044,.044,.056,.065,.075,.083,.075,.025,.026,.051)
+bins = rep(c((1:31)),times=7)
+sample = rep(c("I","II","III","IV","V","VI","VII"), each =31)
+values = c(I,II,III,IV,V,VI,VII)
+data = data.frame(bins,sample,values)
+ggplot(data) +
+geom_point(mapping=aes(x=bins,y=values,color=sample)) +
+theme_bw() + xlab("Bin") + ylab("Alelle Frecuency") +
+scale_x_continuous(breaks=(1:31))
+library(tidyverse)
+density = c(0.99,1.006,1.027,1.045,1.067)
+concentration = c(0.87,2.01,5.02,7.00,10.00)
+data = data.frame(density,concentration)
+data
+ggplot(data) +
+geom_point(mapping=aes(x=density,y=concentration,color=sample)) +
+theme_bw() + xlab("Density(g/mL)") + ylab("Concentration%")
+ggplot(data) +
+geom_point(mapping=aes(x=density,y=concentration)) +
+theme_bw() + xlab("Density(g/mL)") + ylab("Concentration%")
+ggplot(data) +
+geom_point(mapping=aes(x=density,y=concentration)) +
+theme_bw() + xlab("Density(g/mL)") + ylab("Concentration%")+
+geom_smooth(method='lm')
+ggplot(data) +
+geom_point(mapping=aes(x=density,y=concentration)) +
+geom_smooth(method='lm') +
+theme_bw() + xlab("Density(g/mL)") + ylab("Concentration%")
+ggplot(data, aes(x=density,y=concentration)) +
+geom_point() +
+geom_smooth(method='lm') +
+theme_bw() + xlab("Density(g/mL)") + ylab("Concentration%")
+ggplot(data, aes(x=density,y=concentration)) +
+geom_point() +
+geom_smooth(method='lm') +
+theme_bw() + xlab("Density(g/mL)") + ylab("Concentration%") +
+ggtitle("Density vs Concentration of Prepared Solutions")
+data = data.frame(density,concentration)
+model <- lm(concentration~density, data=data)
+summary(model)
+ggplot(data, aes(x=density,y=concentration)) +
+geom_point() +
+geom_smooth(method='lm') +
+theme_bw() + xlab("Density(g/mL)") + ylab("Concentration%") +
+ggtitle("Density vs Concentration of Prepared Solutions") +
+geom_label(x = x_lab, y = y_lab, label = "avg rate")
+ggplot(data, aes(x=density,y=concentration)) +
+geom_point() +
+geom_smooth(method='lm') +
+theme_bw() + xlab("Density(g/mL)") + ylab("Concentration%") +
+ggtitle("Density vs Concentration of Prepared Solutions") +
+geom_label(x = 1, y = 5, label = "avg rate")
+summary(model)
+ggplot(data, aes(x=density,y=concentration)) +
+geom_point() +
+geom_smooth(method='lm') +
+theme_bw() + xlab("Density(g/mL)") + ylab("Concentration%") +
+ggtitle("Density vs Concentration of Prepared Solutions") +
+geom_label(x = 1, y = 5, label = "y = 120.94x - 119.23") +
+geom_label(x = 1, y = 4, label = "R-squared: 0.9931") +
+xx
+library(tidyverse)
+density = c(0.99,1.006,1.027,1.045,1.067)
+concentration = c(0.87,2.01,5.02,7.00,10.00)
+data = data.frame(density,concentration)
+model <- lm(concentration~density, data=data)
+summary(model)
+ggplot(data, aes(x=density,y=concentration)) +
+geom_point() +
+geom_smooth(method='lm') +
+theme_bw() + xlab("Density(g/mL)") + ylab("Concentration%") +
+ggtitle("Density vs Concentration of Prepared Solutions") +
+geom_label(x = 1, y = 5, label = "y = 120.94x - 119.23") +
+geom_label(x = 1, y = 4, label = "R-squared: 0.9931")
+p = c(5.10,5.25,5.16)
+v = c(4.86,5.01,4.94)
+mean(p)
+sd(p)
+mean(v)
+sd(v)
+A = c(0.335,0.199,0.0953,0.0278)
+concentration = c(0.60,0.30,0.12,0.06)
+data = data.frame(A,concentration)
+model <- lm(A~concentration, data=data)
+summary(model)
+data = data.frame(A,concentration)
+model <- lm((A-0.01674)~(concentration-0.01674), data=data)
+summary(model)
+data = data.frame(A,concentration)
+model <- lm((A-0.01674)~(concentration-0.01674), data=data)
+summary(model)
+data = data.frame(A,concentration)
+model <- lm(I(A-0.01674)~(concentration-0.01674), data=data)
+summary(model)
+c = c(5.10,5.26,5.17)
+sd(c)
+mean(c)
+library(tidycensus)
+library(tidyverse)
+install.package("tidycensus")
+install.packages("tidycensus")
+library(tidyverse)
+library(tidycensus)
+library(tidycensus)
+library(tidyverse)
+library("writexl")
+census_api_key("7a853acf81fd5758228680556ac831138c40b83e")
+variables = load_variables(2019,"acs5")
+variables
+variables$name
+match("DP02",variables)
+variables$name[2000]
+variables$name[3000]
+variables$name[5000]
+variables$name[10000]
+variables$name[600000]
+variables$name[60000]
+variables$name[50000]
+variables$name[40000]
+variables$name[30000]
+variables$name[20000]
+variables = load_variables(2019,"acs5/profile")
+variables
+View(variables)
+length(variables)
+length(variables[1])
+variables = load_variables(2021,"acs5/profile")
+variables = load_variables(2020,"pl/profile")
+variables = load_variables(2020,"acs5/profile")
+variables
+View(variables)
+test = get_acs(geography = "county",
+state = "PR",
+year = 2020,
+variables = "DP02_0001")
+test
+View(test)
+test = get_acs(geography = "region",
+state = "PR",
+year = 2020,
+variables = "DP02_0001")
+test = get_acs(geography = "block",
+state = "PR",
+year = 2020,
+variables = "DP02_0001")
+test = get_acs(geography = "county",
+state = "PR",
+year = 2020,
+variables = "DP02_0001")
+View(test)
+variables$name
+codes = variables$name
+test = get_acs(geography = "county",
+state = "PR",
+year = 2020,
+variables = codes)
+view(test)
+noNA = na.omit(test)
+noNA
+view(noNA)
+view(variables)
+DP02table = noNA %>% filter(startsWith(variable,"DP02"))
+DP02table
+view(DP02table)
+DP02table = noNA %>% filter(startsWith(variable,"DP02"))
+DP03table = noNA %>% filter(startsWith(variable,"DP03"))
+DP04table = noNA %>% filter(startsWith(variable,"DP04"))
+DP05table = noNA %>% filter(startsWith(variable,"DP05"))
+view(DP04table)
+variables$name
+variables$label
+noNA$GEOID
+table(noNA$GEOID)
+length(table(noNA$GEOID))
+view(test)
+#amount of GEOIDS
+for (x in 1:78){
+labelCol = c(labelCol, labels)
+}
+#add label column
+#create empty vector
+labelCol = c()
+#amount of GEOIDS
+for (x in 1:78){
+labelCol = c(labelCol, labels)
+}
+#combine test and cols
+test["label"] = labelCol
+labelCol
+#amount of GEOIDS
+for (x in 1:78){
+labelCol = c(labelCol, labels)
+}
+labels()
+labels()
+labels
+variables
+variables$label
+label
+labels
+label0 = variables$label
+label0
+#add label column
+#create empty vector
+labelCol = c()
+#amount of GEOIDS
+for (x in 1:78){
+labelCol = c(labelCol, label0)
+}
+#combine test and cols
+test["label"] = labelCol
+view(test)
+#omit NA rows
+noNA = na.omit(test)
+DP02table = noNA %>% filter(startsWith(variable,"DP02"))
+DP03table = noNA %>% filter(startsWith(variable,"DP03"))
+DP04table = noNA %>% filter(startsWith(variable,"DP04"))
+DP05table = noNA %>% filter(startsWith(variable,"DP05"))
+view(DP02table)
+GEOIDS = table(test$GEOID)
+GEOIDS
+#rearrange cols
+test = test[c("NAME","label","variable","estimate","moe","GEOID")]
+view(test)
+pnorm(1.25)
+pnorm(1.25) - pnorm(-1.25)
+pnorm(1.875) - pnorm(-1.25)
+pnorm(0.75) - pnorm(-1.25)
+pnorm(1.25) - pnorm(-2.5)
+pnorm(2.7) - pnorm(2)
+pnorm(1.54)
+pnorm(1.54) - pnorm(-1.54)
+qnorm(0.4564)
+qnorm(0.9564)
+qnorm(0.05)
+qnorm(0.07)
+qnorm(0.94)
+qnorm(0.43)
+pnorm(-0.18)
+qnorm(0.43)
+pnorm(-0.17)
+pnorm(-1.30)
+qnorm(0.70,400,80)
+(106 - qnorm(0.70,106,21))/21
+(qnorm(0.70,106,21)-106)/21
+(qnorm(0.87,106,28)
+)
+qnorm(0.77)
+0.74 * 17 + 108
+pnorm(252,369,59)
+pnorm(140,120,18) - pnorm(110,120,18)
+qnorm(0.87,100,10)
+1- pnorm(96,100,20)
+pnorm(180,159,10) - pnorm(150,159,10)
+(pnorm(180,159,10) - pnorm(150,159,10))*425
+x = c(-40,0,260,460,960)
+px = c(0.99510,1/200,1/500,1/1000,1/2000)
+len(px)
+length(px)
+Ex = sum(x*px)
+Vx = sum(((x-Ex)^2)*px)
+Ex
+Vx
+library(tidycensus)
+library(tidyverse)
+tableYear = 2020
+#log on with API
+census_api_key("7a853acf81fd5758228680556ac831138c40b83e")
+#load variables
+pueblos = 78
+variables = load_variables(2020,"acs5/profile")
+codes = variables$name
+codess
+codes
+startsWith(codes,"DP02")
+callData = function(year,table,municipality) {
+#year is between 2000 and 2020
+#table is dp02pr, dp03, dp04, dp05
+#load variables
+variables = load_variables(year,"acs5/profile")
+#load variable vectors
+codes = variables$name
+codesBool = startsWith(codes,table)
+codes = codes[codesBool]
+labels = variables$label[codesBool]
+#pull table
+bigTable = get_acs(geography = "county",
+state = "PR",
+year = year,
+county = municipality,
+variables = codes)
+bigTable$Label = labels
+return(bigTable)
+}
+table = callData(2020,"DP05","Aguada")
+table
+view(table)
+view(table)
+callData = function(year,table,municipality) {
+#year is between 2000 and 2020
+#table is dp02pr, dp03, dp04, dp05
+#load variables
+variables = load_variables(year,"acs5/profile")
+#load variable vectors
+codes = variables$name
+codesBool = startsWith(codes,table)
+codes = codes[codesBool]
+labels = variables$label[codesBool]
+#pull table
+bigTable = get_acs(geography = "county",
+state = "PR",
+year = year,
+county = municipality,
+variables = codes)
+bigTable$Label = labels
+bigTable = bigTable[c("Label","estimate","moe")]
+return(bigTable)
+}
+table = callData(2020,"DP05","Aguada")
+view(table)
+plumber::plumb(file='C:/Users/kashi/Desktop/R.R')$run()
+plumb(file='C:/Users/kashi/Desktop/R.R')$run()
+setwd("C:/Users/kashi/Desktop")
+plumb(file='R.R')$run()
+setwd("C:/Users/kashi/Desktop/censusproject")
+plumb(file='R.R')$run()
+plumb(file='R.R')$run()
+plumb(file='R.R')$run()

App.js

@@ -1,387 +1,7 @@
-import { StatusBar } from 'expo-status-bar';
 import React, {useState, useEffect} from 'react';
-import { View, Image, StyleSheet, Text, Button, ScrollView, Pressable} from 'react-native';
-import DropDownPicker from 'react-native-dropdown-picker';
-
-
-//import JSON;
-//import { Dataframe, readJSON } from "danfojs";
-
-//where data will be put
-var organizedData
-
-//where data will be stored
-var information = "data goes here"
-
-//organize data make it pretty
-
-//add loading thing while this organizes all the data !!!
-
-function organize(){
-	
-	var stringDiv = JSON.stringify(information)
-	stringDiv = stringDiv.replace('[[', '');
-	stringDiv = stringDiv.replace(']]', '');
-	stringDiv = stringDiv.split(',')
-	//create smaller array variables
-	let variables = []
-	let value = []
-	let est = []
-	
-	
-	//theres a better way to do this but im not fixing it rn
-	for(let i = 0; i<stringDiv.length; i++){
-		if(i<stringDiv.length/3)
-		{variables.push(stringDiv[i])}
-		else if(i<stringDiv.length/3*2)
-		{value.push(stringDiv[i])}
-		else{est.push(stringDiv[i])}
-	}
-	
-	//anyways this to format it
-	
-	console.log("vars:",variables)
-	console.log("val:",value)
-	console.log("est:",est)
-	//organizedData = JSON.parse(information)
-	//console.log(stringDiv)
-	
-}
-
-function json_2_csv(information){
-	const csv = parse(obj);
-
-	console.log(csv);
-}
-
-//fix
-
-DropDownPicker.setListMode("SCROLLVIEW")
-
-//data query variables (global)
-
-const queryBase = "http://127.0.0.1:5378/table?table=DP03&municipality=Ceiba"
-const queryEnd = "&in=state:72"
-var table = ""
-var pueblo = ""
-
-
-function updateTable(value){
-	table = value
-}
-
-function updatePueblo(value){
-	pueblo = value
-}
-
-//calls data query
-function loadDoc(query) {
-  var xhttp = new XMLHttpRequest();
-  xhttp.onreadystatechange = function() {
-    if (this.readyState == 4 && this.status == 200) {
-         information = this.responseText;
-		 organize()
-  }
-  };
-  xhttp.open("GET", query, true);
-  xhttp.send();
-  
-}
-
-
-//"https://api.census.gov/data/2020/acs/acs5/profile?get=group(DP02PR)&for=county:127&in=state:72"
-
-
-
-function fetchData() {
-	
-	console.log("fetching data")
-	
-	var query = queryBase + "(" + table + ")&for=county:" + pueblo + queryEnd 
-	
-	if(pueblo && table)
-	{loadDoc(query)}
-	else
-	{Alert.alert("Please fill every parameter before calling!")}
-	
-}
-
-//change this to an external css file later
-const styles = StyleSheet.create({
-	
-  buttons: {
-	  flexDirection: 'row',
-	  justifyContent: 'center',
-	  marginTop: 40,
-	  marginBottom: 30,
-	  margin: 30,
-	  borderColor: "grey",
-	  borderRadius: 8,
-	  padding: (30, 16),
-	  backgroundColor: "black",
-	  marginTop: 0
-  }, 
-  buttonContainer: {
-    flexDirection: 'column',
-    backgroundColor: '#f0f8ff',
-    // alignItems: 'center',
-    // justifyContent: 'center',
-	paddingTop:40,
-	marginTop: 15,
-  },
-  bottom: {
-    flex: 0.3,
-    backgroundColor: "gray",
-    borderWidth: 5,
-    borderBottomLeftRadius: 20,
-    borderBottomRightRadius: 20,
-	alignItems:'center',
-
-  },
-  container: {
-    flexDirection: 'column',
-	justifyContent: 'center',
-    backgroundColor: '#f0f8ff',
-    alignItems: 'center',
-    justifyContent: 'center',
-	paddingTop:20,
-	marginTop: 15,
-  },
-
-
-  containerbackground:{
-	
-    backgroundColor: '#f0f8ff'
-  },
-  intro: {
-	  fontWeight: "bold",
-      color:"#black",
-	  fontSize: 30,
-  },
-
-  sub: {
-	color:"#black",  
-	fontWeight: "bold",
-	fontSize: 15,
-	paddingBottom:10,
-},
-
-  Navsub: {
-      color:"#black",  
-	  fontWeight: "bold",
-	  fontSize: 30,
-	  paddingBottom:10,
-  },
-  scrollView:{
-	  marginHorizontal: 20
-  },
-  listItem:{
-	  fontSize: 30,
-	  color: "white",
-	  textDecorationLines: "underline"
-  },
-  listButtons:{
-	  fontSize: 15,
-	  color: "white",
-	  textDecorationLines: "underline"  
-  },
-  buttonsVer: {
-	  flexDirection: 'column',
-	  justifyContent: 'center',
-	  marginTop: 40,
-	  marginBottom: 30,
-	  margin: 30,
-	  borderColor: "grey",
-  }
-});
-
-
-
-//default button press
-
-const handlePress = () => false
-
-
-//data parsing goes here
-function getInfo(){
-	//console.log(information[6])
-	if(!information)
-	{Alert.alert("Please try again later! Error retriving data")}
-	else
-	{return information}
-
-	
-}
-
-//data display
-
-class DataButton extends React.Component{
-	
-	state = {
-		click: false
-	}
-	
-	pullData = () => {fetchData(); this.setState({click: true})}
-	
-	
-	render() {
-		return(
-		<View>
-			<Button
-			onPress = {this.pullData}
-			title = "Fetch Data"
-			color = "black"
-			/>
-			<Text style={styles.sub}>{getInfo()}</Text> 
-		</View>
-	);}	
-}
-
-
-//picker test
-
-function Picker() {
-	
-	//table to pick from
-  
-  
-  const [openTable, setOpenTable] = useState(false);
-  const [valueTable, setValueTable] = useState(null);
-  const [table, setTable] = useState([
-    {label:'DP02PR', value: 'DP02PR'},
-    {label:'DP03', value: 'DP03'},
-	{label:'DP04', value: 'DP04'},
-    {label:'DP05', value: 'DP05'},
-  ]);
-    
-  //cambiar pueblo
-  
-  
-  //pueblo
-  const [openPueblo, setOpenPueblo] = useState(false);
-  const [valuePueblo, setValuePueblo] = useState(null);
-  const [pueblo, setPueblo] = useState([
-    {label: 'Adjuntas', value: '001'},
-    {label: 'Aguada', value: '003'},
-	{label: 'Aguadillas', value: '005'},
-    {label: 'Aguas Buenas', value: '007'},
-	{label: 'Aibonito', value: '009'},
-    {label: 'Añasco', value: '011'},
-	{label: 'Arecibo', value: '013'},
-    {label: 'Arroyo', value: '015'},
-	{label: 'Barceloneta', value: '017'},
-    {label: 'Barranquitas', value: '019'},
-	{label: 'Bayamón', value: '021'},
-    {label: 'Cabo Rojo', value: '023'},
-	{label: 'Caguas', value: '025'},
-    {label: 'Camuy', value: '027'},
-	{label: 'Canóvanas', value: '029'},
-	{label: 'Carolina', value: '031'},
-	{label: 'Cataño', value: '033'},
-	{label: 'Cayey', value: '035'},
-	{label: 'Ceiba', value: '037'},
-	{label: 'Ciales', value: '039'},
-	{label: 'Cidra', value: '041'},
-	{label: 'Coamo', value: '043'},
-	{label: 'Comerío', value: '045'},
-	{label: 'Corozal', value: '047'},
-	{label: 'Culebra', value: '049'},
-	{label: 'Dorado', value: '051'},
-	{label: 'Fajardo', value: '053'},
-	{label: 'Florida', value: '054'},
-	{label: 'Guánica', value: '055'},
-	{label: 'Guayama', value: '057'},
-	{label: 'Guayanilla', value: '059'},
-	{label: 'Guaynabo', value: '061'},	
-	{label: 'Gurabo', value: '063'},
-	{label: 'Hatillo', value: '065'},
-	{label: 'Hormigueros', value: '067'},
-	{label: 'Humacao', value: '069'},
-	{label: 'Isabela', value: '071'},
-	{label: 'Jayuya', value: '073'},
-	{label: 'Juana Díaz', value: '075'},
-	{label: 'Juncos', value: '077'},
-	{label: 'Lajas', value: '079'},
-	{label: 'Lares', value: '081'},
-	{label: 'Las Marías', value: '083'},
-	{label: 'Las Piedras', value: '085'},
-	{label: 'Loíza', value: '087'},
-	{label: 'Luquillo', value: '089'},
-	{label: 'Manatí', value: '091'},
-	{label: 'Maricao', value: '093'},
-	{label: 'Maunabo', value: '095'},
-	{label: 'Mayagüez', value: '097'},
-	{label: 'Moca', value: '099'},
-	{label: 'Morovis', value: '101'},
-	{label: 'Naguabo', value: '103'},
-	{label: 'Naranjito', value: '105'},
-	{label: 'Orocovis', value: '107'},
-	{label: 'Patillas', value: '109'},
-	{label: 'Peñuelas', value: '111'},
-	{label: 'Ponce', value: '113'},
-	{label: 'Quebradillas', value: '115'},
-	{label: 'Rincón', value: '117'},
-	{label: 'Río Grande', value: '119'},
-	{label: 'Sabana Grande', value: '121'},
-	{label: 'Salinas', value: '123'},
-	{label: 'San Germán', value: '125'},
-	{label: 'San Juan', value: '127'},
-	{label: 'San Lorenzo', value: '129'},
-	{label: 'San Sebastián', value: '131'},
-	{label: 'Santa Isabel', value: '133'},
-	{label: 'Toa Alta', value: '135'},
-	{label: 'Toa Baja', value: '137'},
-	{label: 'Trujillo Alto', value: '139'},
-	{label: 'Utuado', value: '141'},
-	{label: 'Vega Alta', value: '143'},
-	{label: 'Vega Baja', value: '145'},
-	{label: 'Vieques', value: '147'},
-	{label: 'Villalba', value: '149'},
-	{label: 'Yabucoa', value: '151'},
-	{label: 'Yauco', value: '153'}
-  ]);
-  
-  
-
-  return (
-  <View>
-    <DropDownPicker
-      open={openTable}
-      value={valueTable}
-      items={table}
-      setOpen={setOpenTable}
-      setValue={setValueTable}
-      setItems={setTable}
-	  onChangeValue = {(valueTable) => {
-		updateTable(valueTable);
-		}}
-	  onOpen = {() => {setOpenPueblo(false)}}
-	  zIndex={3000}
-	  zIndexInverse={1000}
-	  placeholder="Tabla de Datos"
-    />
-	
-	<DropDownPicker
-      searchable={true}
-      open={openPueblo}
-      value={valuePueblo}
-      items={pueblo}
-      setOpen={setOpenPueblo}
-      setValue={setValuePueblo}
-      setItems={setPueblo}
-	  onChangeValue = {(valuePueblo) => {
-		updatePueblo(valuePueblo);
-		}}
-	  onOpen = {() => {setOpenTable(false)}}
-	  zIndex={1000}
-      zIndexInverse={3000}
-	  placeholder="Pueblo"
-	  searchPlaceholder="Busqueda..."
-    />
-	
-	</View>
-  );
-}
+import { View, Image, Text, Button, ScrollView, Pressable, Linking,StyleSheet} from 'react-native';
+import {Picker, DataButton} from "./Datos"
+import { styles } from './styles';
 
 
 
@@ -391,122 +11,120 @@ class App extends React.Component {
 
 //the text at the end of a page gets cut off if anyone knows how to fix that?
 vars = {
-		welcome:
-<ScrollView style={styles.scrollView}>
-		<View style = {styles.containerbackground}>
-		
-		  	<View style = {styles.container}>
+	welcome:
+
+	<View style = {styles.containerbackground}>
+		<ScrollView style={styles.scrollView}>
+			<View style = {styles.container}>
 				<Text style={styles.intro}>Bienvenido!</Text>
-				<Image source={require('./smallLogo.jpeg')} />
 			</View>
+
 			<View style = {styles.container}>
+				
 				<Text style={styles.sub}>Aquí podra mantenerse al tanto con las 
 					últimas noticias relacionadas al Censo y tener acceso a los  
 					los Demographic Data Profiles de cada municipio de
-					Puerto Rico.</Text>
-		   </View>
+					Puerto Rico.
+				</Text>
+			</View>
 
-		   <View style = {styles.bottom}>
+			<View style = {styles.bottom}>
 				<Text style={styles.intro2}>Contactenos:</Text>
 				<Text style={styles.sub}>Prof: Hernando Mattei Torres
 				<Button onPress={() => Linking.openURL('mailto:hernando.mattei@upr.edu') }
-      			title="e-mail" /></Text>
+				title="e-mail" /></Text>
 				<Text style={styles.sub}>Angelica Rosario Santos
 				<Button onPress={() => Linking.openURL('mailto:angelica.rosario2@upr.edu') }
-      			title="e-mail" /></Text>
+				title="e-mail" /></Text>
 				<Text style={styles.sub}>Data from:</Text>
 				<Image source={require('./census-logos.png')} />
 				<Button onPress={() => Linking.openURL('https://data.census.gov/profile?q=United+States&g=0100000US') }
-      			title="United States Census page" />
-		   </View>
-		  
-		</View>
-		</ScrollView>,
-		 
-		newsView:
+				title="United States Census page" />
+			</View>
+		</ScrollView>
+	</View>,
+
+						
+	newsView:
 		<View style = {styles.containerbackground}>
-		<ScrollView style={styles.scrollView}>
-		 <View style = {styles.container}>
-		 	
-			<Text style={styles.intro}>Noticias</Text>
-			
-			<Image source={require('./Logo.jpeg')} />
-			
-		 </View>
-		</ScrollView></View>,
+			<ScrollView style={styles.scrollView}>
+				<View style = {styles.container}>
+					
+					<Text style={styles.intro}>Noticias</Text>
+					
+					<Image source={require('./Logo.jpeg')} />
+					
+				</View>
+			</ScrollView>
+		</View>,
 		
-		dataOp:
+	dataOp:
 		<View style = {styles.containerbackground}>
-		<ScrollView nestedScrollEnabled = {true} style={styles.scrollView}>
-		 <View style = {styles.container}>
-			
-			<Text style={styles.intro}>DATA VIEWING PROJECT</Text>		
-				
-			<Picker />
+			<ScrollView nestedScrollEnabled = {true} style={styles.scrollView}>
+				<View style = {styles.container}>
+					<Text style={styles.intro}>DATA VIEWING PROJECT</Text>		
+				</View>	
 
+				 
+					<Picker />
 				
-			<DataButton />
-			
-			<Text style={styles.sub}>blehhhhhh bleh bleh bleh bleh bleh blehhhhhhhhhhhhhhhhh </Text>
+					<DataButton />
+				
+
+			</ScrollView>	
 			
-		 </View>
-		</ScrollView></View>
-		
-		
+		</View>
 
 		
-	}
-//current state
-state = {current: this.vars.welcome}
+}
+
 
-//state changing functions
-setHome = () => this.setState({ current: this.vars.welcome })
+	//current state
+	state = {current: this.vars.welcome}
 
+	//state changing functions
+	setHome = () => this.setState({ current: this.vars.welcome })
 
-setData = () => this.setState({current: this.vars.dataOp})
 
+	setData = () => this.setState({current: this.vars.dataOp})
 
-setNews = () => this.setState({ current: this.vars.newsView })
+
+	setNews = () => this.setState({ current: this.vars.newsView })
 
 	
 
 	//render app
    render() {
-      return (
-	  <View>
-		
-		<View style = {styles.containerbackground}>
-				<ScrollView style={styles.scrollView}>
-				<View style = {styles.buttonContainer}>
-					<Text style={styles.Navsub}> Demographic Data Viewer</Text>
-						<Text style={styles.sub}> Navegador</Text>
-							<Pressable style = {styles.buttons} onPress={this.setNews}>
+		return (
+			<View>
+				<View style = {styles.containerbackground}>
+					<View style = {styles.buttonContainer}>
+						
+						<Text style={styles.Navsub}> Demographic Data Viewer</Text>
 							
-			 		 			<Button
-								title = "Noticias"
-				 				color = "white"
-			  					/>
-			  
-			  					
+						<View style = {styles.navContainer}>
+							<Pressable style={styles.buttons} onPress = {this.setNews}>
+								<Text style={styles.text}> Noticias</Text>
 							</Pressable>
-								
-							<Pressable style = {styles.buttons} onPress={this.setData}>
-							
-			 		 			<Button
-								title = "Datos"
-				 				color = "white"
-			  					/>
-			  
-			  					
+
+							<Pressable style={styles.buttons} onPress = {this.setHome}>
+								<Text style={styles.text}> Hogar</Text>
 							</Pressable>
-						
-						
-		  				{this.state.current}
+
+							<Pressable style={styles.buttons} onPress = {this.setData}>
+								<Text style={styles.text}> Datos</Text>
+							</Pressable>
+
+						</View>
+								
+						{this.state.current}
+
 					</View>
-					</ScrollView>
+
+				</View>
+
 			</View>
-		</View>
-      );
+		);
    }
 }
 

Datos.js

@@ -0,0 +1,393 @@
+import React, {useState} from 'react';
+import { View, Text, Pressable, StyleSheet, Alert} from 'react-native';
+import DropDownPicker from 'react-native-dropdown-picker';
+//import {styles} from "./styles"
+  
+const styles = StyleSheet.create({
+	
+	buttons: {
+		flexDirection: 'row',
+		justifyContent: 'center',
+		marginTop: 40,
+		marginBottom: 30,
+		margin: 30,
+		borderColor: "grey",
+		borderRadius: 8,
+		padding: (30, 16),
+		backgroundColor: "black",
+		marginTop: 0,
+	}, 
+	navContainer: {
+	  flexDirection: 'row',
+	  justifyContent: "space-evenly",
+	  borderColor: "black",
+	  borderWidth: 5,
+	  borderRadius: 8,
+	  paddingTop: 20,
+	  backgroundColor: "gray",
+	  marginTop: 5,
+  }, 
+	buttonContainer: {
+	  flexDirection: 'column',
+	  backgroundColor: '#f0f8ff',
+	  alignItems: 'center',
+	  justifyContent: 'center',
+	  paddingTop:100,
+	  marginTop: 40,
+	},
+	container: {
+	  flexDirection: 'column',
+	  justifyContent: 'center',
+	  backgroundColor: '#f0f8ff',
+	  alignItems: 'center',
+	  justifyContent: 'center',
+	  paddingTop:20,
+	  marginTop: 20,
+	},
+	containerbackground:{
+	  
+	  backgroundColor: '#f0f8ff'
+	},
+	intro: {
+		fontWeight: "bold",
+		color:"#black",
+		fontSize: 30,
+	},
+  
+	sub: {
+	  color:"#black",  
+	  fontWeight: "bold",
+	  fontSize: 15,
+	  paddingBottom:10,
+  },
+  
+	Navsub: {
+		color:"#black",  
+		fontWeight: "bold",
+		fontSize: 30,
+		paddingBottom:10,
+	},
+	scrollView:{
+		marginHorizontal: 20
+	},
+	listItem:{
+		fontSize: 30,
+		color: "white",
+		textDecorationLines: "underline"
+	},
+	listButtons:{
+		fontSize: 15,
+		color: "white",
+		textDecorationLines: "underline"  
+	},
+	buttonsVer: {
+		flexDirection: 'column',
+		justifyContent: 'center',
+		marginTop: 40,
+		marginBottom: 30,
+		margin: 30,
+		borderColor: "grey",
+	},
+	bottom: {
+	  flex: 0.3,
+	  backgroundColor: "gray",
+	  borderWidth: 5,
+	  alignItems: 'center',
+	  borderBottomLeftRadius: 20,
+	  borderBottomRightRadius: 20,
+	
+  },text: {
+	  fontSize: 16,
+	  lineHeight: 21,
+	  fontWeight: 'bold',
+	  letterSpacing: 0.25,
+	  color: 'white',
+	},
+  });  
+var table = ""
+var pueblo = ""
+
+//where data will be stored
+var information
+
+function Picker() {    
+
+    //table to pick from
+  
+  
+  const [openTable, setOpenTable] = useState(false);
+  const [valueTable, setValueTable] = useState(null);
+  const [table, setTable] = useState([
+    {label:'DP02PR', value: 'DP02PR'},
+    {label:'DP03', value: 'DP03'},
+	{label:'DP04', value: 'DP04'},
+    {label:'DP05', value: 'DP05'},
+  ]);
+    
+  //cambiar pueblo
+  
+  
+  //pueblo
+  const [openPueblo, setOpenPueblo] = useState(false);
+  const [valuePueblo, setValuePueblo] = useState(null);
+  const [pueblo, setPueblo] = useState([
+    {label: 'Adjuntas', value: '001'},
+    {label: 'Aguada', value: '003'},
+	{label: 'Aguadillas', value: '005'},
+    {label: 'Aguas Buenas', value: '007'},
+	{label: 'Aibonito', value: '009'},
+    {label: 'Añasco', value: '011'},
+	{label: 'Arecibo', value: '013'},
+    {label: 'Arroyo', value: '015'},
+	{label: 'Barceloneta', value: '017'},
+    {label: 'Barranquitas', value: '019'},
+	{label: 'Bayamón', value: '021'},
+    {label: 'Cabo Rojo', value: '023'},
+	{label: 'Caguas', value: '025'},
+    {label: 'Camuy', value: '027'},
+	{label: 'Canóvanas', value: '029'},
+	{label: 'Carolina', value: '031'},
+	{label: 'Cataño', value: '033'},
+	{label: 'Cayey', value: '035'},
+	{label: 'Ceiba', value: '037'},
+	{label: 'Ciales', value: '039'},
+	{label: 'Cidra', value: '041'},
+	{label: 'Coamo', value: '043'},
+	{label: 'Comerío', value: '045'},
+	{label: 'Corozal', value: '047'},
+	{label: 'Culebra', value: '049'},
+	{label: 'Dorado', value: '051'},
+	{label: 'Fajardo', value: '053'},
+	{label: 'Florida', value: '054'},
+	{label: 'Guánica', value: '055'},
+	{label: 'Guayama', value: '057'},
+	{label: 'Guayanilla', value: '059'},
+	{label: 'Guaynabo', value: '061'},	
+	{label: 'Gurabo', value: '063'},
+	{label: 'Hatillo', value: '065'},
+	{label: 'Hormigueros', value: '067'},
+	{label: 'Humacao', value: '069'},
+	{label: 'Isabela', value: '071'},
+	{label: 'Jayuya', value: '073'},
+	{label: 'Juana Díaz', value: '075'},
+	{label: 'Juncos', value: '077'},
+	{label: 'Lajas', value: '079'},
+	{label: 'Lares', value: '081'},
+	{label: 'Las Marías', value: '083'},
+	{label: 'Las Piedras', value: '085'},
+	{label: 'Loíza', value: '087'},
+	{label: 'Luquillo', value: '089'},
+	{label: 'Manatí', value: '091'},
+	{label: 'Maricao', value: '093'},
+	{label: 'Maunabo', value: '095'},
+	{label: 'Mayagüez', value: '097'},
+	{label: 'Moca', value: '099'},
+	{label: 'Morovis', value: '101'},
+	{label: 'Naguabo', value: '103'},
+	{label: 'Naranjito', value: '105'},
+	{label: 'Orocovis', value: '107'},
+	{label: 'Patillas', value: '109'},
+	{label: 'Peñuelas', value: '111'},
+	{label: 'Ponce', value: '113'},
+	{label: 'Quebradillas', value: '115'},
+	{label: 'Rincón', value: '117'},
+	{label: 'Río Grande', value: '119'},
+	{label: 'Sabana Grande', value: '121'},
+	{label: 'Salinas', value: '123'},
+	{label: 'San Germán', value: '125'},
+	{label: 'San Juan', value: '127'},
+	{label: 'San Lorenzo', value: '129'},
+	{label: 'San Sebastián', value: '131'},
+	{label: 'Santa Isabel', value: '133'},
+	{label: 'Toa Alta', value: '135'},
+	{label: 'Toa Baja', value: '137'},
+	{label: 'Trujillo Alto', value: '139'},
+	{label: 'Utuado', value: '141'},
+	{label: 'Vega Alta', value: '143'},
+	{label: 'Vega Baja', value: '145'},
+	{label: 'Vieques', value: '147'},
+	{label: 'Villalba', value: '149'},
+	{label: 'Yabucoa', value: '151'},
+	{label: 'Yauco', value: '153'}
+  ]);
+  
+
+    return (
+        <View>
+            <DropDownPicker
+                open={openTable}
+                value={valueTable}
+                items={table}
+                setOpen={setOpenTable}
+                setValue={setValueTable}
+                setItems={setTable}
+                onChangeValue = {(valueTable) => {
+                    updateTable(valueTable);
+                }}
+                onOpen = {() => {setOpenPueblo(false)}}
+                zIndex={3000}
+                zIndexInverse={1000}
+                placeholder="Tabla de Datos"
+            />
+
+                
+            <DropDownPicker
+                searchable={true}
+                open={openPueblo}
+                value={valuePueblo}
+                items={pueblo}
+                setOpen={setOpenPueblo}
+                setValue={setValuePueblo}
+                setItems={setPueblo}
+                onChangeValue = {(valuePueblo) => {
+                    updatePueblo(valuePueblo);
+                }}
+                onOpen = {() => {setOpenTable(false)}}
+                zIndex={1000}
+                zIndexInverse={3000}
+                placeholder="Pueblo"
+                searchPlaceholder="Busqueda..."
+            />
+                
+        </View>
+
+    );
+}
+
+
+        
+function updateTable(value){
+    table = value
+}
+        
+function updatePueblo(value){
+    pueblo = value
+}
+        
+//calls data query
+function loadDoc(query) {
+	console.log("load")
+    var xhttp = new XMLHttpRequest();
+    xhttp.onreadystatechange = function() {
+        if (this.readyState == 4) {
+            information = this.responseText;
+			
+			if(this.status == 200){console.log("received response");organize()}
+            }
+        }
+        xhttp.open("GET", query, true);
+        xhttp.send(null);  
+        }
+        
+		
+function fetchData() {
+            
+        var query = "http://127.0.0.1:5378/table?table=" + table + "&municipality=" + pueblo 
+        if(pueblo && table)
+        {loadDoc(query)}
+
+        else
+        {Alert.alert("Please fill every parameter before calling!")}
+            
+    }
+
+
+
+//organize data make it pretty
+//add loading thing while this organizes all the data !!!
+
+function organize(){
+	
+	console.log(information)
+	
+	let bigData = JSON.parse(information)
+	
+	/*
+	var stringDiv = JSON.stringify(information)
+	stringDiv = stringDiv.replace('[[', '');
+	stringDiv = stringDiv.replace(']]', '');
+	stringDiv = stringDiv.split(',')
+	//create smaller array variables
+	let variables = []
+	let value = []
+	let est = []
+	
+	
+	//theres a better way to do this but im not fixing it rn
+	for(let i = 0; i<stringDiv.length; i++){
+
+		if(i<stringDiv.length/3)
+		    {variables.push(stringDiv[i])}
+		else if(i<stringDiv.length/3*2)
+		    {value.push(stringDiv[i])}
+		else
+            {est.push(stringDiv[i])}
+	}
+	
+	//anyways this to format it
+	
+	console.log("vars:",variables)
+	console.log("val:",value)
+	console.log("est:",est)
+	*/
+
+	
+}
+
+function json_2_csv(information){
+
+	const csv = parse(obj);
+	console.log(csv);
+}
+
+//fix
+
+DropDownPicker.setListMode("SCROLLVIEW")
+
+
+//data parsing goes here
+function getInfo(){
+	return information
+}
+
+//data display
+
+class DataButton extends React.Component{
+	
+	
+	state = {
+		updated: 1,
+		notUpdated: 0
+	}
+	
+	pullData = () => {fetchData(); this.setState({current: 1})}
+	
+	
+	//the reason you need to press the button twice is bc the http request doesnt finish in time
+	//for information to be updated before its rerendered
+	componentDidUpdate(){
+		console.log(this.state)
+		if(this.state.current == 1){
+			console.log("updating")
+			this.setState({current: 0})
+		}
+	}
+	
+	state = {current: 0}
+	
+	render() {
+		return(
+            <View style = {styles.container}>
+                    
+                    <Pressable style={styles.buttons} onPress = {this.pullData}>
+                        <Text style={styles.text}> Fetch Data</Text>
+                    </Pressable>
+                   
+                        <Text style={styles.sub}>{information}</Text> 
+                    
+            </View>
+	    );
+    }	
+}
+
+export { Picker, updateTable, updatePueblo,loadDoc,fetchData,DataButton};

Noticias.js

@@ -0,0 +1,4 @@
+import React, {useState, useEffect} from 'react';
+import { View, Image, Text, Button, ScrollView, Pressable, Linking} from 'react-native';
+import {Picker, DataButton} from "./Datos"
+import { styles } from './styles';

R.R

@@ -1,19 +1,19 @@
 library(tidycensus)
 library(tidyverse)
+library(plumber)
 
 
-#log on with API
-census_api_key("7a853acf81fd5758228680556ac831138c40b83e")
-
-
-
-callData = function(year,table,municipality) {
+#* Call table
+#* @get /table
+#* @serializer json
+callData = function(table,municipality) {
   
+  census_api_key("7a853acf81fd5758228680556ac831138c40b83e")
   #year is between 2000 and 2020
   #table is dp02pr, dp03, dp04, dp05
   
   #load variables
-  variables = load_variables(year,"acs5/profile")
+  variables = load_variables(2020,"acs5/profile")
   #load variable vectors
   codes = variables$name
   codesBool = startsWith(codes,table)
@@ -24,8 +24,9 @@ callData = function(year,table,municipality) {
   #pull table
   bigTable = get_acs(geography = "county",
                  state = "PR",
-                 year = year,
+                 year = 2020,
                  county = municipality,
+                 survey = "acs5",
                  variables = codes)
   
   bigTable$Label = labels
@@ -33,5 +34,5 @@ callData = function(year,table,municipality) {
   return(bigTable)
 }
 
-table = callData(2020,"DP05","Aguada")
+
 

fetchData.js

@@ -46,11 +46,9 @@ class DataButton extends React.Component{
 
 function createQuery(pueblo, table) {
 	
-	const queryBase = "https://api.census.gov/data/2020/acs/acs5/profile?get=group"
-	const queryEnd = "&in=state:72"
 	console.log("fetching data")
 	
-	var query = queryBase + "(" + table + ")&for=county:" + pueblo + queryEnd 
+	var query = "http://127.0.0.1:5378/table?table=" table + "&municipality=" + pueblo 
 	
 	if(pueblo && table)
 	{return query}

sorting.py

@@ -0,0 +1,65 @@
+"""
+Carlos J Corrada Bravo
+Este programa calcula el promedio de tiempo de ejecucion de cuatro algoritmos de ordenamiento
+La variable maxValor define el valor maximo de los elementos de la lista
+La variable largoLista define el largo de las listas a ordenar
+La variable veces define las veces que se va a hacer el ordenamiento 
+Al final se imprimen los promedios de cada algortimo
+"""
+from random import randint
+import time
+
+def mergeSort(lista):
+	#definan el algoritmo de ordenamiento mergesort
+	return lista
+
+def heapSort(lista):
+	#definan el algoritmo de ordenamiento heapsort
+	return lista
+
+def quickSort(lista):
+	#definan el algoritmo de ordenamiento quicksort
+	return lista
+
+def shellSort(lista):
+	#definan el algoritmo de ordenamiento shellsort
+	return lista
+
+maxValor=1000 	#define el valor maximo de los elementos de la lista
+largoLista=1000 #define el largo de las listas a ordenar
+veces=100 		#define las veces que se va a hacer el ordenamiento 
+
+acumulaMerge=0 	#variable para acumular el tiempo de ejecucion del mergesort
+acumulaHeap=0 	#variable para acumular el tiempo de ejecucion del heapsort
+acumulaQuick=0 	#variable para acumular el tiempo de ejecucion del quicksort
+acumulaShell=0 	#variable para acumular el tiempo de ejecucion del shellsort
+
+for i in range(veces):
+	mergelista = [randint(0,maxValor) for r in range(largoLista)] #creamos una lista con valores al azar
+	heaplista=list(mergelista)
+	quicklista=list(mergelista)
+	searchlista=list(mergelista)
+
+	t1 = time.clock() 				#seteamos el tiempo al empezar
+	mergeSort(mergelista) 				#ejecutamos el algoritmo mergeSort
+	acumulaMerge+=time.clock()-t1 	#acumulamos el tiempo de ejecucion
+	
+	t1 = time.clock()				#seteamos el tiempo al empezar
+	heapSort(heaplista)					#ejecutamos el algoritmo heapSort
+	acumulaHeap+=time.clock()-t1 	#acumulamos el tiempo de ejecucion
+	
+	t1 = time.clock()				#seteamos el tiempo al empezar
+	quickSort(quicklista)				#ejecutamos el algoritmo quickSort
+	acumulaQuick+=time.clock()-t1 	#acumulamos el tiempo de ejecucion
+	
+	t1 = time.clock()				#seteamos el tiempo al empezar
+	shellSort(searchlista)				#ejecutamos el algoritmo shellSort
+	acumulaShell+=time.clock()-t1 	#acumulamos el tiempo de ejecucion
+
+#imprimos los resultados
+print "Promedio de tiempo de ejecucion de "+ str(veces) +" listas de largo " + str(largoLista)
+print "MergeSort " + str(acumulaMerge/veces) + " segundos"
+print "HeapSort " + str(acumulaHeap/veces) + " segundos"
+print "QuickSort " + str(acumulaQuick/veces) + " segundos"
+print "ShellSort " + str(acumulaShell/veces) + " segundos"
+

styles.js

@@ -1,5 +1,4 @@
-//styles
-
+import { StyleSheet} from 'react-native';
 const styles = StyleSheet.create({
 	
   buttons: {
@@ -12,24 +11,25 @@ const styles = StyleSheet.create({
 	  borderRadius: 8,
 	  padding: (30, 16),
 	  backgroundColor: "black",
-	  marginTop: 0
+	  marginTop: 0,
   }, 
+  navContainer: {
+	flexDirection: 'row',
+	justifyContent: "space-evenly",
+	borderColor: "black",
+	borderWidth: 5,
+	borderRadius: 8,
+	paddingTop: 20,
+	backgroundColor: "gray",
+	marginTop: 5,
+}, 
   buttonContainer: {
     flexDirection: 'column',
     backgroundColor: '#f0f8ff',
-    // alignItems: 'center',
-    // justifyContent: 'center',
-	paddingTop:40,
-	marginTop: 15,
-  },
-  bottom: {
-    flex: 0.3,
-    backgroundColor: "gray",
-    borderWidth: 5,
-    borderBottomLeftRadius: 20,
-    borderBottomRightRadius: 20,
-	alignItems:'center',
-
+    alignItems: 'center',
+    justifyContent: 'center',
+	paddingTop:100,
+	marginTop: 40,
   },
   container: {
     flexDirection: 'column',
@@ -38,10 +38,8 @@ const styles = StyleSheet.create({
     alignItems: 'center',
     justifyContent: 'center',
 	paddingTop:20,
-	marginTop: 15,
+	marginTop: 20,
   },
-
-
   containerbackground:{
 	
     backgroundColor: '#f0f8ff'
@@ -85,5 +83,22 @@ const styles = StyleSheet.create({
 	  marginBottom: 30,
 	  margin: 30,
 	  borderColor: "grey",
-  }
+  },
+  bottom: {
+    flex: 0.3,
+    backgroundColor: "gray",
+    borderWidth: 5,
+	alignItems: 'center',
+    borderBottomLeftRadius: 20,
+    borderBottomRightRadius: 20,
+  
+},text: {
+    fontSize: 16,
+    lineHeight: 21,
+    fontWeight: 'bold',
+    letterSpacing: 0.25,
+    color: 'white',
+  },
 });
+
+export {styles};