library(readxl)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
data <- read_xlsx("New_theropod_teeth.xlsx")#reading data
data<-data[,c(1:15)]
# Convert columns to numeric, then create log-transformed columns
data <- data %>%
  mutate(across(9:ncol(data), as.numeric)) %>%
  mutate(across(9:ncol(data), log, .names = "Log_{.col}"))

write.csv(data,"new_theropod_teeth_data.csv", row.names = FALSE)