diameter <- read.csv(“https://raw.githubusercontent.com/tmatis12/datafiles/main/diameter.csv”)
diameter_log<- log(diameter)
printed table using print(diameter_log)
write.csv(diameter_log, “diameter_log1.csv”)
str(diameter_log)