Final Project

[sunaynagoel]

@Anthony-Howell-PhD I am running into following error while knitting the .rmd document.

Quitting from lines 56-78 (Final_Project_Outline_Storyboard-Goel.Rmd)
Error in loadNamespace(name) : there is no package called 'lorem'
Calls: ... loadNamespace -> withRestarts -> withOneRestart -> doWithOneRestart
Execution halted

When I tried to install the package "lorem", following error was produced.

 Package LibPath Version Priority Depends Imports LinkingTo Suggests Enhances License License_is_FOSS License_restricts_use OS_type Archs MD5sum
 NeedsCompilation Built

Anyone else running into this issue?

[sunaynagoel]

@Anthony-Howell-PhD. I was able to knit the file after including the following code.

install.packages1("devtools")
devtools::install_github("gadenbuie/lorem")

And later by calling the library (with all other libraries).
library (lorem)

[Jigarci3]

@Anthony-Howell-PhD I might be completely off on this but I am trying to subset census.dats for my MSA. Here is my code

grep("^SEA", census.dats$msaname, value = TRUE)
these.sea <- census.dats$msaname == "SEATTLE-BELLEVUE-EVERETT, WA"
these.fips <- census.dats$fipscounty[ these.sea ]
these.fips <- na.omit( these.fips )

state.fips <- substr( these.fips, 1, 2 )
county.fips <- substr( these.fips, 3, 5 )

sea.pop1 <-
  get_acs( geography = "tract", variables = "Median.HH.Value00", "Foreign.Born00", "Recent.Immigrant00", "Poor.English00", "Veteran00", "Poverty00", "Poverty.Black00", " Poverty.White00", "Poverty.Hispanic00", "Pop.Black00", "Pop.Hispanic00", "Pop.Unemp00", "Pop.Manufact00", "Pop.SelfEmp00", "Pop.Prof00", "Female.LaborForce00",
         state = "53", county = county.fips[state.fips=="53"], geometry = TRUE ) %>% 
         select( "TRTID10", estimate ) %>%
         rename( POP=estimate )

sea.pop2 <-
get_acs( geography = "tract", variables = "Median.HH.Value10", "Foreign.Born10", "Recent.Immigrant10", "Poor.English10", "Veteran10", "Poverty10", "Poverty.Black10", " Poverty.White10", "Poverty.Hispanic10", "Pop.Black10", "Pop.Hispanic10", "Pop.Unemp10", "Pop.Manufact10", "Pop.SelfEmp10", "Pop.Prof10", "Female.LaborForce10",
         state = "53", county = county.fips[state.fips=="53"], geometry = TRUE ) %>% 
         select( "TRTID10", estimate ) %>%
         rename( POP=estimate )

sea.pop <- rbind(sea.pop1, sea.pop2)

I am getting the following error: "Error in if (shift_geo) { : argument is not interpretable as logical"

I can't figure out how to correct this error or if I am on the right track with my attempt to only include Seattle data.

[AntJam-Howell]

@Jigarci3 You do not have to use the get_acs function to download data for the final project. The code chunk (below) gives you the 2000 and 2010 census variables. You have the census.dats dataframe that includes the tract ('TRTID10'), state ('state') and county ('county') information already. You need to subset the census.dats to include only the Seattle counties of your interest.

[sunaynagoel]

@Anthony-Howell-PhD. The main (top horizontal) navigation bar is hiding the titles and descriptions of the widgets below it. Is there anyway to customize it? I tried different things but could not achieve desired results. Thanks
I am attaching a screen shot.

[lecy]

You can create a custom Cascading Style Sheet (CSS) to moderate this behavior (you have not learned this yet), but the easiest solution is to simplify the menu bar.

Shorten the project title ("Community Analytics Practicum Extravaganza" is tongue-in-cheek, you can change it), and consider grouping some items (can you combine clustering, neighborhoods, and neighborhood change? ).

[sunaynagoel]

@lecy Thank you. Shortening the menu bar helped.

[sunaynagoel]

I was wondering if limiting the decimals places in the table displayed using datatable() to 4 or 5? Will it affect the predictions?

[AntJam-Howell]

It is common to round to 2 or 3 decimal places, which should not have any noticeable effect on model outcomes or predictions.

…

On Mon, Dec 2, 2019 at 8:07 PM sunaynagoel ***@***.***> wrote: I was wondering if limiting the decimals places in the table displayed using datatable() to 4 or 5? Will it affect the predictions? — You are receiving this because you were mentioned. Reply to this email directly, view it on GitHub <#20?email_source=notifications&email_token=AMK2Y72R52JTS6ILNPQ7XBLQWXEQDA5CNFSM4JTOIFQ2YY3PNVWWK3TUL52HS4DFVREXG43VMVBW63LNMVXHJKTDN5WW2ZLOORPWSZGOEFX5RTI#issuecomment-560978125>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AMK2Y77WAR5KDINASARLB6DQWXEQDANCNFSM4JTOIFQQ> .

-- Anthony Howell Asst. Prof. in Public Policy School of Public Affairs Arizona State University Faculty Profile <https://isearch.asu.edu/profile/3501621> (CV <https://www.dropbox.com/s/b1pxccpwxm6fats/Howell.CV.pdf?dl=0>)

[etbartell]

@Anthony-Howell-PhD. I was able to knit the file after including the following code.

install.packages1("devtools")
devtools::install_github("gadenbuie/lorem")

And later by calling the library (with all other libraries).
library (lorem)

@Anthony-Howell-PhD I'm having this same issue with knitting the original rmd but it was not solved with the code provided above. When I try it with this code:

knitr::opts_chunk$set(  message=F, warning=F, echo=F )

install.packages("devtools")
devtools::install_github("gadenbuie/lorem")

#Load in libraries
library( tidycensus )
library( tidyverse )
library( ggplot2 )
library( plyr )
library( stargazer )
library( corrplot )
library( purrr )
library( flexdashboard )
library( leaflet )
library( mclust )
library( pander )
library( DT )
library( lorem )

I get the following error message:

When I try to simply use install.package( "lorem" ), it tells me that "package ‘lorem’ is not available (for R version 3.6.1)". Do I need to download a different version of R? I thought we were all using the same version.

[AntJam-Howell]

@etbartell If you cannot download and load the lorem package, the easiest thing to do is go through the .rmd file and remove the lorem call feature. To do this, paste into your search box of the .rmd file to find all instances of the following code: r lorem::ipsum(paragraphs = 1)

You can then delete this code chunk one by one or all at once. Just remember everytime you see that code, it represents a place for to provide your own answer. You can still return to these places to provide your answer by searching for the <!--- symbol that denotes the instructions.

[etbartell]

@etbartell If you cannot download and load the lorem package, the easiest thing to do is go through the .rmd file and remove the lorem call feature. To do this, paste into your search box of the .rmd file to find all instances of the following code: r lorem::ipsum(paragraphs = 1)

You can then delete this code chunk one by one or all at once. Just remember everytime you see that code, it represents a place for to provide your own answer. You can still return to these places to provide your answer by searching for the <!--- symbol that denotes the instructions.

That worked, thanks!

[meliapetersen]

I'm having a weird issue with my code from lab 4 (it didn't happen when I turned in the lab, but it's happening now).

I'm getting the error that I am not using an argument:

Error in rename(., POP = estimate) : unused argument (POP = estimate)

When running this code:

crosswalk <- read.csv( "https://raw.githubusercontent.com/DS4PS/cpp-529-master/master/data/cbsatocountycrosswalk.csv",  stringsAsFactors=F, colClasses="character" )

these.seattle <- crosswalk$msaname == "SEATTLE-BELLEVUE-EVERETT, WA"
these.fips <- crosswalk$fipscounty[ these.seattle ]
these.fips <- na.omit( these.fips )

state.fips <- substr( these.fips, 1, 2 )
county.fips <- substr( these.fips, 3, 5 )

seattle.pop <-
  get_acs( geography = "tract", variables = "B01003_001", state = "53", county = county.fips[state.fips=="53"], geometry = TRUE ) %>%
  select( GEOID, estimate ) %>%
  rename( POP = estimate )

URL <- "https://github.com/DS4PS/cpp-529-master/raw/master/data/ltdb_std_2010_sample.rds"
census.dat <- readRDS(gzcon(url( URL )))

# merge shapefile data with census data in new dataframe
seattle <- merge( seattle.pop, census.dat, by.x="GEOID", by.y="tractid" )
seattle2 <- seattle[ ! st_is_empty( seattle ) , ]
seattle.sp <- as_Spatial( seattle2 )
class( seattle.sp )

For the empirical framework portion of the dashboard.

Am I on the right track for this portion? I am also unclear on that as well. This was just the code I had from lab 4.

[AntJam-Howell]

@meliapetersen sorry to hear that is happening. My suggestion is to focus on understanding how to subset the census.dats dataset to only your MSA of interest. Based on your code, your counties of interest are ("029" "033" "061"). The census.dat dataframe have the actual names of the counties not numbers. It was intended that this dilemna would lead people to search online for county fips (see my google search screenshot attached). The first option is a concordance (attached also below). You will have to match the number of your fip counties to the names in the concordance, then subset those county names in your census.dats dataset.

Countyfipconcordance.pdf

[meliapetersen]

@meliapetersen sorry to hear that is happening. My suggestion is to focus on understanding how to subset the census.dats dataset to only your MSA of interest. Based on your code, your counties of interest are ("029" "033" "061"). The census.dat dataframe have the actual names of the counties not numbers. It was intended that this dilemna would lead people to search online for county fips (see my google search screenshot attached). The first option is a concordance (attached also below). You will have to match the number of your fip counties to the names in the concordance, then subset those county names in your census.dats dataset.

Countyfipconcordance.pdf

I see where I'm going wrong, thank you!

[castower]

@Anthony-Howell-PhD. I was able to knit the file after including the following code.

install.packages1("devtools")
devtools::install_github("gadenbuie/lorem")

And later by calling the library (with all other libraries).
library (lorem)

@Anthony-Howell-PhD I'm having this same issue with knitting the original rmd but it was not solved with the code provided above. When I try it with this code:

knitr::opts_chunk$set(  message=F, warning=F, echo=F )

install.packages("devtools")
devtools::install_github("gadenbuie/lorem")

#Load in libraries
library( tidycensus )
library( tidyverse )
library( ggplot2 )
library( plyr )
library( stargazer )
library( corrplot )
library( purrr )
library( flexdashboard )
library( leaflet )
library( mclust )
library( pander )
library( DT )
library( lorem )

I get the following error message:

When I try to simply use install.package( "lorem" ), it tells me that "package ‘lorem’ is not available (for R version 3.6.1)". Do I need to download a different version of R? I thought we were all using the same version.

@etbartell I ran into the same problem and found that entering the following code fixed it:

devtools::install_github("gadenbuie/lorem")

I read here for additional info: https://github.com/gadenbuie/lorem

Edit: oops, just realized this is the exact same code as above, I somehow overlooked that!