## Not run:library(googleAnalyticsR)## authenticate, ## or use the RStudio Addin "Google API Auth" with analytics scopes setga_auth()## get your accountsaccount_list <- google_analytics_account_list()## pick a profile with data to queryga_id <- account_list[23,'viewId']## first make a cohort groupcohort4 <- make_cohort_group(list("cohort 1"= c("2015-08-01","2015-08-01"),"cohort 2"= c("2015-07-01","2015-07-01")))## then call cohort report. No date_range and must include metrics and dimensions## from the cohort listcohort_example <- google_analytics(ga_id, dimensions=c('cohort'), cohort = cohort4, metrics = c('cohortTotalUsers'))### Lifetime Value report - just a variation of the cohort report # with lifetimeValue = TRUE### and ltv specific metrics### The view MUST be an app view at the moment## make a cohort group with lifetimeValue = TRUEcohort_ltv <- make_cohort_group(list("cohort 1"= c("2018-12-01","2018-12-31"),"cohort 2"= c("2019-01-01","2019-01-31")), lifetimeValue =TRUE)## call a cohort report with ltv metricsltv_example <- google_analytics(ga_id, dimensions = c('cohort',"acquisitionTrafficChannel"), cohorts = cohort_ltv, metrics = c("cohortGoalCompletionsPerUserWithLifetimeCriteria"))## End(Not run)