library(dplyr)
carbon.fabric.2 %>%
select(thickness, strength) %>%
mutate(normalized_strength = normalize_ply_thickness(strength,
thickness,
0.105)) %>%
head(10)
## thickness strength normalized_strength
## 1 0.112 142.817 152.3381
## 2 0.113 135.901 146.2554
## 3 0.113 132.511 142.6071
## 4 0.112 135.586 144.6251
## 5 0.113 125.145 134.6799
## 6 0.113 135.203 145.5042
## 7 0.113 128.547 138.3411
## 8 0.113 127.709 137.4392
## 9 0.113 127.074 136.7558
## 10 0.114 126.879 137.7543
Run the code above in your browser using DataLab