Bruna Wundervald brunaw

## Reading data with string problems
base <- read.csv("comm.csv", encoding = "UTF-8", header = TRUE,
                 sep = ",", row.names = NULL,
                 quote = "\"'",
                 dec = ".",
                 stringsAsFactors=FALSE)

x <- read.table("comm.csv", header = TRUE, sep=",",
                quote="\"'", stringsAsFactors=FALSE,
                fill = TRUE,
                encoding = "UTF-8",

## Center images in rmarkdown with vignette css
out.extra = 'style = "margin:0 -200px"'

## gist:b7930dc0752d3e3b6c6eac586f50fd3f
# Example
express <- c(expression(sigma^2 == 1),
             expression(sigma^2 == 2),
             expression(sigma^2 == 5),
             expression(sigma^2 == 10))

# And in the chart code
strip = strip.custom(factor.levels = express)

## remove ggplot legends
  guides(fill=FALSE)

## brackets equation in latex
\begin{cases}
\end{cases}

## latex evaluate integral
\Big|_{0}^{x}

## Curve with ggplot2
    ggplot(data.frame(x = c(0, 1)), aes(x)) +
      stat_function(fun=function(x){
        dgunit(y = x, mu = mu, phi = phi)
      }, color = "red2", size = 1.3) +
      guides(fill = FALSE) +
      theme_minimal() +
      ylab(expression("f(y)")) +
      xlab(expression(y)) +
      theme(


## negate %in%
'%!in%' <- function(x,y)!('%in%'(x,y))

## read all.files in directory
temp = list.files(pattern="*.txt")
myfiles = lapply(temp, read.table, sep = ",")

## save data
save(vanessa_da_mata , file =  "vanessa_da_mata.rda")
	base <- read.csv("comm.csv", encoding = "UTF-8", header = TRUE,
	sep = ",", row.names = NULL,
	quote = "\"'",
	dec = ".",
	stringsAsFactors=FALSE)

	x <- read.table("comm.csv", header = TRUE, sep=",",
	quote="\"'", stringsAsFactors=FALSE,
	fill = TRUE,
	encoding = "UTF-8",
	# Example
	express <- c(expression(sigma^2 == 1),
	expression(sigma^2 == 2),
	expression(sigma^2 == 5),
	expression(sigma^2 == 10))

	# And in the chart code
	strip = strip.custom(factor.levels = express)
	ggplot(data.frame(x = c(0, 1)), aes(x)) +
	stat_function(fun=function(x){
	dgunit(y = x, mu = mu, phi = phi)
	}, color = "red2", size = 1.3) +
	guides(fill = FALSE) +
	theme_minimal() +
	ylab(expression("f(y)")) +
	xlab(expression(y)) +
	theme(
	temp = list.files(pattern="*.txt")
	myfiles = lapply(temp, read.table, sep = ",")