require(RGoogleAnalytics)

client.id <- "995868658023-ae8a44dmm8sekj151918s3484tem9970.apps.googleusercontent.com"
client.secret <- "0xsh2mPKzPsYfFKP62qmp68W"
token <- Auth(client.id,client.secret)

save(token,file="./token_file2")

ValidateToken(token)

query.list <- Init(start.date = "2016-12-09",
                   end.date = "2017-02-09",
                   dimensions = "ga:devicecategory",
                   metrics = "ga:users",
                   max.results = 50000,
                   table.id = "ga:81184577")
ga.query <- QueryBuilder(query.list)
ga.data <- GetReportData(ga.query, token, paginate_query = F)
ga.data$CR<- ga.data$goal3Completions/ga.data$users*100
prop.test(x = c(funnel$users.2[1], funnel$users.2[2]), n = c(funnel$users[1], funnel$users[2] ), alternative = c("less"),conf.level = 0.95, correct=TRUE)
data_vizual<- plot(ga.data$date,ga.data$users , type="l", col="blue")
data_vizual

library(plotly)
boxplot1 <- plot_ly(ga.data, x = ~ga.data$users, color = ~ga.data$users, type = "box")
p
summary(ga.data$users)


library(plotly)
set.seed(100)
d <- ga.data[sample(nrow(ga.data), 1000), ]
plot_ly( x = ~ga.data$users, y = ~ga.data$date, color = ~ga.data$users,
         size = ~ga.data$users, text = ~paste("Clarity: ", ga.data$users))


require(bayesAB)
A_test <- rbinom(14079, 0, .199)
B_test <- rbinom(13972, 0, .222)
A_TEST1 <- bayesTest(A_test, B_test, priors = c('alpha' = 50, 'beta' = 200), n_samples = 1e5, distribution = 'bernoulli')
print(A_TEST1)
summary(A_TEST1)
plot(A_TEST1)

power.prop.test(p1=0.031, p2=0.038, power=0.9, alternative='one.sided', sig.level=0.01)