library(dplyr)
data(Example_data, package = "Covid19Wastewater")
Example_data <- Example_data[Example_data$site == 'Janesville',]
Example_log_data <- mutate(Example_data, log_geo_mean = log10(geo_mean + 1))
head(buildRegressionEstimateTable(Example_log_data, SplitOn = "site",
RunOn = "log_geo_mean"))
Run the code above in your browser using DataLab