Affect hey Survey

#How happy are you right now?

## `geom_smooth()` using formula 'y ~ x'

#How sad are you right now?

## `geom_smooth()` using formula 'y ~ x'

#How stressed are you right now?

## `geom_smooth()` using formula 'y ~ x'

#How relaxed are you right now?

## `geom_smooth()` using formula 'y ~ x'

#How much are you overthinking right now?

## `geom_smooth()` using formula 'y ~ x'

#How optimistic are you right now?

## `geom_smooth()` using formula 'y ~ x'

#How self conscious are you right now?

## `geom_smooth()` using formula 'y ~ x'

## Warning: Removed 2 rows containing missing values (geom_smooth).

#How much are you thinking about the past right now?

## `geom_smooth()` using formula 'y ~ x'

#How much are you socializing right now?

## `geom_smooth()` using formula 'y ~ x'

#How much are you working out right now?

## `geom_smooth()` using formula 'y ~ x'

## Warning: Removed 24 rows containing missing values (geom_smooth).

#How much are you laughing right now?

## `geom_smooth()` using formula 'y ~ x'

#How much are you procrastinating right now?

## `geom_smooth()` using formula 'y ~ x'

#```{r publish, echo = FALSE} #render(“~/Documents/University of Miami/Research/MANATEE/R_project_with_Brittany/RMarkdown files/PSY260_001.Rmd”, “html_document”, output_dir = “~/Documents/University of Miami/Research/MANATEE/R_project_with_Brittany/RMarkdown files”)

#result1 <- rpubsUpload(“PSY260_001”,“~/Documents/University of Miami/Research/MANATEE/R_project_with_Brittany/RMarkdown files/PSY260_001.html”, NULL) #if (!is.null(result1\(continueUrl)) browseURL(result1\)continueUrl) ```