clasifica_vehiculos: Clasifica vehiculos
In lilianlopez/pavement_management: Pavement Management
Usage
1
Arguments
df
Examples
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (df)
{
df["nom_12"] <- character(nrow(df))
condicion_1 <- df["gvw"] <= 19 & df["class"] == 4 & df["wheelbase"] <=
8.04 & df["num.axles"] == 2
df[condicion_1, "nom_12"] <- "B2"
condicion_2 <- df["gvw"] <= 27.5 & df["class"] == 4 & df["wheelbase"] <
11 & df["num.axles"] == 3
df[condicion_2, "nom_12"] <- "B3"
condicion_3 <- df["gvw"] <= 30.5 & df["class"] == 4 & df["wheelbase"] <
11 & df["num.axles"] == 4
df[condicion_3, "nom_12"] <- "B4"
condicion_4 <- df["gvw"] <= 19 & df["class"] == 5 & df["wheelbase"] <
11 & df["num.axles"] == 2
df[condicion_4, "nom_12"] <- "C2"
condicion_5 <- df["gvw"] <= 27.5 & df["class"] == 6 & df["wheelbase"] <
11 & df["num.axles"] == 3
df[condicion_5, "nom_12"] <- "C3"
condicion_6 <- df["gvw"] <= 37.5 & df["class"] == 8 & df["wheelbase"] <
28 & df["num.axles"] == 4
df[condicion_6, "nom_12"] <- "C2-R2"
condicion_7 <- df["gvw"] <= 51.5 & df["class"] == 10 & df["wheelbase"] <
28 & df["num.axles"] == 6
df[condicion_7, "nom_12"] <- "C3-R3"
condicion_8 <- df["gvw"] <= 45.5 & df["class"] == 9 & df["wheelbase"] <
28 & df["num.axles"] == 5
df[condicion_8, "nom_12"] <- "C2-R3"
condicion_9 <- df["gvw"] <= 44.5 & df["class"] == 9 & df["wheelbase"] <
28 & df["num.axles"] == 5
df[condicion_9, "nom_12"] <- "C3-R2"
condicion_10 <- df["gvw"] <= 30 & df["class"] == 8 & df["wheelbase"] <
20 & df["num.axles"] == 3
df[condicion_10, "nom_12"] <- "T2-S1"
condicion_11 <- df["gvw"] <= 38.8 & df["class"] == 8 & df["wheelbase"] <
20 & df["num.axles"] == 4
df[condicion_11, "nom_12"] <- "T2-S2"
condicion_12 <- df["gvw"] <= 45.5 & df["class"] == 9 & df["wheelbase"] <
20 & df["num.axles"] == 5
df[condicion_12, "nom_12"] <- "T2-S3"
condicion_13 <- df["gvw"] <= 38.5 & df["class"] == 8 & df["wheelbase"] <
20 & df["num.axles"] == 4
df[condicion_13, "nom_12"] <- "T3-S1"
condicion_14 <- df["gvw"] <= 46.5 & df["class"] == 9 & df["wheelbase"] <
20 & df["num.axles"] == 5
df[condicion_14, "nom_12"] <- "T3-S2"
condicion_15 <- df["gvw"] <= 54 & df["class"] == 10 & df["wheelbase"] <
20 & df["num.axles"] == 6
df[condicion_15, "nom_12"] <- "T3-S3"
condicion_16 <- df["gvw"] <= 47.5 & df["class"] == 11 & df["wheelbase"] <
28 & df["num.axles"] == 5
df[condicion_16, "nom_12"] <- "T2-S1-R2"
condicion_17 <- df["gvw"] <= 54.5 & df["class"] == 12 & df["wheelbase"] <
28 & df["num.axles"] == 6 & df["spc1"] <= 3.5 & df["spc2"] <=
7 & df["spc3"] <= 3 & df["spc4"] <= 6 & df["spc5"] <=
1.5
df[condicion_17, "nom_12"] <- "T2-S1-R3"
condicion_18 <- df["gvw"] <= 54.5 & df["class"] == 12 & df["wheelbase"] <
28 & df["num.axles"] == 6 & df["spc1"] <= 3.5 & df["spc2"] <=
6 & df["spc3"] <= 1.5 & df["spc4"] <= 3 & df["spc5"] <=
7
df[condicion_18, "nom_12"] <- "T2-S2-R2"
condicion_19 <- df["gvw"] <= 54.5 & df["class"] == 12 & df["wheelbase"] <
28 & df["num.axles"] == 6 & df["spc1"] <= 2.5 & df["spc2"] <=
1.5 & df["spc3"] <= 7 & df["spc4"] <= 3 & df["spc5"] <=
6
df[condicion_19, "nom_12"] <- "T3-S1-R2"
condicion_20 <- df["gvw"] <= 60.5 & df["class"] == 13 & df["wheelbase"] <
28 & df["num.axles"] == 7 & df["spc1"] <= 2.5 & df["spc2"] <=
1.5 & df["spc3"] <= 7 & df["spc4"] <= 3 & df["spc5"] <=
6 & df["spc6"] <= 1.5
df[condicion_20, "nom_12"] <- "T3-S1-R3"
condicion_21 <- df["gvw"] <= 60.5 & df["class"] == 13 & df["wheelbase"] <
28 & df["num.axles"] == 7 & df["spc1"] <= 2.5 & df["spc2"] <=
1.5 & df["spc3"] <= 6 & df["spc4"] <= 7 & df["spc5"] <=
3 & df["spc6"] <= 7
df[condicion_21, "nom_12"] <- "T3-S2-R2"
condicion_22 <- df["gvw"] <= 66.5 & df["class"] == 13 & df["wheelbase"] <
28 & df["num.axles"] == 9
df[condicion_22, "nom_12"] <- "T3-S2-R4"
condicion_23 <- df["gvw"] <= 63 & df["class"] == 13 & df["wheelbase"] <
28 & df["num.axles"] == 8
df[condicion_23, "nom_12"] <- "T3-S2-R3"
condicion_24 <- df["gvw"] <= 60 & df["class"] == 12 & df["wheelbase"] <
25 & df["num.axles"] == 8
df[condicion_24, "nom_12"] <- "T3-S3-R2"
condicion_25 <- df["gvw"] <= 51.5 & df["class"] == 13 & df["wheelbase"] <
28 & df["num.axles"] == 8
df[condicion_25, "nom_12"] <- "T3-S3-S2"
condicion_motos <- df["gvw"] <= 0.6 & df["class"] == 1 &
df["wheelbase"] < 3 & df["num.axles"] == 2
df[condicion_motos, "nom_12"] <- "motos"
condicion_otros_01 <- df["gvw"] <= 9 & df["class"] >= 1 &
df["num.axles"] >= 2 & df$nom_12 == ""
df[condicion_otros_01, "nom_12"] <- "otros_01"
condicion_otros_02 <- df["gvw"] > 9 & df["class"] >= 1 &
df["num.axles"] >= 2 & df$nom_12 == ""
df[condicion_otros_02, "nom_12"] <- "otros_02"
return(df)
}
lilianlopez/pavement_management documentation built on Jan. 20, 2022, 12:07 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Usage
1 |
Arguments
df |
Examples
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (df)
{
df["nom_12"] <- character(nrow(df))
condicion_1 <- df["gvw"] <= 19 & df["class"] == 4 & df["wheelbase"] <=
8.04 & df["num.axles"] == 2
df[condicion_1, "nom_12"] <- "B2"
condicion_2 <- df["gvw"] <= 27.5 & df["class"] == 4 & df["wheelbase"] <
11 & df["num.axles"] == 3
df[condicion_2, "nom_12"] <- "B3"
condicion_3 <- df["gvw"] <= 30.5 & df["class"] == 4 & df["wheelbase"] <
11 & df["num.axles"] == 4
df[condicion_3, "nom_12"] <- "B4"
condicion_4 <- df["gvw"] <= 19 & df["class"] == 5 & df["wheelbase"] <
11 & df["num.axles"] == 2
df[condicion_4, "nom_12"] <- "C2"
condicion_5 <- df["gvw"] <= 27.5 & df["class"] == 6 & df["wheelbase"] <
11 & df["num.axles"] == 3
df[condicion_5, "nom_12"] <- "C3"
condicion_6 <- df["gvw"] <= 37.5 & df["class"] == 8 & df["wheelbase"] <
28 & df["num.axles"] == 4
df[condicion_6, "nom_12"] <- "C2-R2"
condicion_7 <- df["gvw"] <= 51.5 & df["class"] == 10 & df["wheelbase"] <
28 & df["num.axles"] == 6
df[condicion_7, "nom_12"] <- "C3-R3"
condicion_8 <- df["gvw"] <= 45.5 & df["class"] == 9 & df["wheelbase"] <
28 & df["num.axles"] == 5
df[condicion_8, "nom_12"] <- "C2-R3"
condicion_9 <- df["gvw"] <= 44.5 & df["class"] == 9 & df["wheelbase"] <
28 & df["num.axles"] == 5
df[condicion_9, "nom_12"] <- "C3-R2"
condicion_10 <- df["gvw"] <= 30 & df["class"] == 8 & df["wheelbase"] <
20 & df["num.axles"] == 3
df[condicion_10, "nom_12"] <- "T2-S1"
condicion_11 <- df["gvw"] <= 38.8 & df["class"] == 8 & df["wheelbase"] <
20 & df["num.axles"] == 4
df[condicion_11, "nom_12"] <- "T2-S2"
condicion_12 <- df["gvw"] <= 45.5 & df["class"] == 9 & df["wheelbase"] <
20 & df["num.axles"] == 5
df[condicion_12, "nom_12"] <- "T2-S3"
condicion_13 <- df["gvw"] <= 38.5 & df["class"] == 8 & df["wheelbase"] <
20 & df["num.axles"] == 4
df[condicion_13, "nom_12"] <- "T3-S1"
condicion_14 <- df["gvw"] <= 46.5 & df["class"] == 9 & df["wheelbase"] <
20 & df["num.axles"] == 5
df[condicion_14, "nom_12"] <- "T3-S2"
condicion_15 <- df["gvw"] <= 54 & df["class"] == 10 & df["wheelbase"] <
20 & df["num.axles"] == 6
df[condicion_15, "nom_12"] <- "T3-S3"
condicion_16 <- df["gvw"] <= 47.5 & df["class"] == 11 & df["wheelbase"] <
28 & df["num.axles"] == 5
df[condicion_16, "nom_12"] <- "T2-S1-R2"
condicion_17 <- df["gvw"] <= 54.5 & df["class"] == 12 & df["wheelbase"] <
28 & df["num.axles"] == 6 & df["spc1"] <= 3.5 & df["spc2"] <=
7 & df["spc3"] <= 3 & df["spc4"] <= 6 & df["spc5"] <=
1.5
df[condicion_17, "nom_12"] <- "T2-S1-R3"
condicion_18 <- df["gvw"] <= 54.5 & df["class"] == 12 & df["wheelbase"] <
28 & df["num.axles"] == 6 & df["spc1"] <= 3.5 & df["spc2"] <=
6 & df["spc3"] <= 1.5 & df["spc4"] <= 3 & df["spc5"] <=
7
df[condicion_18, "nom_12"] <- "T2-S2-R2"
condicion_19 <- df["gvw"] <= 54.5 & df["class"] == 12 & df["wheelbase"] <
28 & df["num.axles"] == 6 & df["spc1"] <= 2.5 & df["spc2"] <=
1.5 & df["spc3"] <= 7 & df["spc4"] <= 3 & df["spc5"] <=
6
df[condicion_19, "nom_12"] <- "T3-S1-R2"
condicion_20 <- df["gvw"] <= 60.5 & df["class"] == 13 & df["wheelbase"] <
28 & df["num.axles"] == 7 & df["spc1"] <= 2.5 & df["spc2"] <=
1.5 & df["spc3"] <= 7 & df["spc4"] <= 3 & df["spc5"] <=
6 & df["spc6"] <= 1.5
df[condicion_20, "nom_12"] <- "T3-S1-R3"
condicion_21 <- df["gvw"] <= 60.5 & df["class"] == 13 & df["wheelbase"] <
28 & df["num.axles"] == 7 & df["spc1"] <= 2.5 & df["spc2"] <=
1.5 & df["spc3"] <= 6 & df["spc4"] <= 7 & df["spc5"] <=
3 & df["spc6"] <= 7
df[condicion_21, "nom_12"] <- "T3-S2-R2"
condicion_22 <- df["gvw"] <= 66.5 & df["class"] == 13 & df["wheelbase"] <
28 & df["num.axles"] == 9
df[condicion_22, "nom_12"] <- "T3-S2-R4"
condicion_23 <- df["gvw"] <= 63 & df["class"] == 13 & df["wheelbase"] <
28 & df["num.axles"] == 8
df[condicion_23, "nom_12"] <- "T3-S2-R3"
condicion_24 <- df["gvw"] <= 60 & df["class"] == 12 & df["wheelbase"] <
25 & df["num.axles"] == 8
df[condicion_24, "nom_12"] <- "T3-S3-R2"
condicion_25 <- df["gvw"] <= 51.5 & df["class"] == 13 & df["wheelbase"] <
28 & df["num.axles"] == 8
df[condicion_25, "nom_12"] <- "T3-S3-S2"
condicion_motos <- df["gvw"] <= 0.6 & df["class"] == 1 &
df["wheelbase"] < 3 & df["num.axles"] == 2
df[condicion_motos, "nom_12"] <- "motos"
condicion_otros_01 <- df["gvw"] <= 9 & df["class"] >= 1 &
df["num.axles"] >= 2 & df$nom_12 == ""
df[condicion_otros_01, "nom_12"] <- "otros_01"
condicion_otros_02 <- df["gvw"] > 9 & df["class"] >= 1 &
df["num.axles"] >= 2 & df$nom_12 == ""
df[condicion_otros_02, "nom_12"] <- "otros_02"
return(df)
}
|
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.