darioappsilon

print(d$name)

darioappsilon

d <- Dog$new(name = "Milo", age = 4, hair_color = "black")
print(d)

darioappsilon

Dog <- R6Class(
  classname = "Dog",
  public = list(
    name = NULL,
    age = NULL,
    hair_color = NULL,
    initialize = function(name = NA, age = NA, hair_color = NA) {
      self$name = name
      self$age = age
      self$hair_color = hair_color

darioappsilon

d <- Dog$new(name = "Milo", age = 4, hair_color = "black")
print(d)

darioappsilon

d <- Dog$new()
print(d)

darioappsilon

library(R6)

Dog <- R6Class(
  classname = "Dog",
  public = list(
    name = NULL,
    age = NULL,
    hair_color = NULL
  )
)

darioappsilon

grapesAgri1::descApp() # descriptive Statistics and Visualization 
grapesAgri1::corrApp() # Correlation Analysis
grapesAgri1::ttApp() # Compare Means
grapesAgri1::crdApp() # Completely Randomized Design
grapesAgri1::layoutApp() # Field layout of experiments
grapesAgri1::rbdApp() # Randomized Block Design 

darioappsilon

install.packages('grapesAgri1', dependencies=TRUE)

darioappsilon

ggplot(data, aes(x = quarter, y = profit, fill = product)) +
  geom_col(position = position_dodge()) +
  scale_fill_manual(values = c("#3db5ff", "#0099f9")) +
  geom_text(aes(label = profit), position = position_dodge(0.9), vjust = 2, size = 4, color = "#ffffff") + 
  geom_hline(yintercept = mean(data$profit), linetype = "dashed", size = 1)

darioappsilon

ggplot(data, aes(x = quarter, y = profit, fill = product)) +
  geom_col(position = position_dodge()) +
  scale_fill_manual(values = c("#3db5ff", "#0099f9")) +
  geom_text(aes(label = profit), position = position_dodge(0.9), vjust = 2, size = 4, color = "#ffffff")