if(!require("FrF2")) install.packages("FrF2") ; library(FrF2)

df <- EXPERIMENTO_SALA <- read_excel("mypath/EXPERIMENTO SALA.xlsx",
                           col_types = c("numeric", "numeric", "numeric",
                                         "numeric", "numeric", "numeric",
                                         "numeric", "numeric", "numeric"))

print.data.frame(df)

Run order pH Temperature (<U+25E6>C) Dose (g) Concentration (mg/L) Speed
(rpm) % removal of SMO
1          1  3                       5     0.05                  350
100            99.90
2          2  3                       5     0.50                   50
100            80.20
3          3  9                      30     0.05                   50
200            38.00
4          4  3                       5     0.05                   50
200            94.80
5          5  9                       5     0.50                   50
200            27.00
6          6  9                       5     0.50                  350
100            51.70
7          7  9                      30     0.50                   50
100            60.00
8          8  3                      30     0.50                   50
200            96.40
9          9  3                       5     0.50                  350
200            99.77
10        10  9                       5     0.05                  350
200             9.10
11        11  9                      30     0.50                  350
200            58.00
12        12  9                      30     0.05                   50
200            39.10
13        13  9                       5     0.05                   50
100            23.40
14        14  3                      30     0.50                   50
200            96.70
15        15  3                       5     0.05                  350
100            99.70
16        16  3                      30     0.05                  350
200            98.40
17        17  3                      30     0.05                   50
100            99.60
18        18  9                       5     0.50                   50
200            28.00
19        19  9                      30     0.50                  350
200            58.40
20        20  3                       5     0.50                   50
100            80.60
21        21  3                      30     0.05                   50
100            99.50
22        22  3                      30     0.50                  350
100            97.40
23        23  9                       5     0.50                  350
100            52.00
24        24  3                       5     0.50                  350
200            99.40
25        25  3                      30     0.05                  350
200            98.80
26        26  9                      30     0.05                  350
100            37.10
27        27  9                       5     0.05                   50
100            25.00
28        28  9                      30     0.05                  350
100            37.40
29        29  3                      30     0.50                  350
100            97.70
30        30  9                      30     0.50                   50
100            61.20
31        31  9                       5     0.05                  350
200            10.00
32        32  3                       5     0.05                   50
200            95.10
% removal of CO % removal of Bright-Edge 80
1            99.97                       99.90
2            99.40                       89.14
3            54.00                       87.60
4            99.60                       91.80
5            59.60                       68.80
6            46.80                       13.40
7            61.60                       57.40
8            98.00                       88.20
9            99.77                       98.80
10           23.10                        8.00
11           79.70                       69.40
12           56.00                       88.00
13           90.40                       44.60
14           97.70                       88.00
15           99.80                       99.10
16           99.80                       99.60
17           99.80                       90.60
18           60.10                       68.90
19           80.10                       70.00
20           99.60                       89.90
21           99.30                       91.00
22           97.90                       97.00
23           47.10                       14.20
24           98.60                       98.60
25           99.70                       99.30
26           55.40                       36.80
27           91.00                       44.40
28           55.10                       37.20
29           97.20                       97.20
30           62.00                       58.00
31           22.80                        9.00
32           99.40                       92.00

plan.person = FrF2(nfactors = 5,
               resolution = 5,
               replications = 2,
               randomize = FALSE,
               factor.names = list(
                 pH = c(3, 9),
                 Temp = c(5, 30),
                 Dose = c(0.05, 0.5),
                 Conc = c(50, 350),
                 Speed = c(100, 200)
               ))