Exercise For Loop

#### Function for Side or Radius depending on shape and area ####
radius = sqrt(Figures$area/pi)
t_side = sqrt(4*Figures$area/sqrt(3))
s_side = sqrt(Figures$area)

for (i in length(Figures$shape)) {

  radius = sqrt(Figures$area/pi)
  t_side = sqrt(4*Figures$area/sqrt(3))
  s_side = sqrt(Figures$area)

  if(Figures$shape[i] == "square") {
  s_side
    } else if(Figures$shape[i] == "triangle") {
  t_side
      } else {
  radius
        }
}


 calculate <- function(dataset) {
  for (i in 1:nrow(dataset)) {

    radius = sqrt(dataset$area[i]/pi)
    t_side = sqrt(4*dataset$area[i]/sqrt(3))
    s_side = sqrt(dataset$area[i])

    if(dataset$shape[i] == "square") {
      dataset$area[i] <- s_side
    } else if(dataset$shape[i] == "triangle") {
      dataset$area[i] <- t_side
    } else {
      dataset$area <- radius
    }
  }
}

 count(Figures)

calculate(Figures)
 radius
length(Figures$shape)
for (i in dataset) {
  # radius
  radius = sqrt(dataset$area/pi)
  # side

  # if circle calculate radius
  # if square or triangle calculate side

}