file_path <- ‘~/Downloads/car_price_dataset.csv’ data <- read_csv(file_path)
print(head(data))
data\(Price_Double <- data\)Price * 2
print(head(data))
write.csv(data, ‘~/Downloads/car_price_dataset_modified.csv’, row.names = FALSE)
cat(‘Содержимое файла после изменений:\n’) print(head(data))