
 

Hola que tal alguien de ustedes me podría auxiliar, lo que pasa es que estoy tratando de hacer un programa en R  utilizando la siguiente tabla:

 












 
x<1 km
x>1km

Estabilidad
a
c
d
f
c
d
f

A
213
440.8
1.94
9.27
459.70
2.094
-9.6

B
156
106.6
1.15
3.30
108.20
1.098
2.0

C
104
61.0
0.91
0.00
61.00
0.911
0.0

D
68
33.2
0.73
-1.70
44.50
0.516
-13.0

E
51
22.8
0.68
-1.30
55.40
0.305
-34.0

F
34
14.4
0.74
-0.35
65.60
0.180
-48.6

 

Lo que quisiera que mi programa realizara es, que al yo darle una distancia (x) < 1.0 km ó (x)> 1.0km y proporcionarle la estabilidad(A,B,C,D,E,F) me de el coeficiente de a, c, d, y f, pero no se por donde empezar,

 

Lo que se encuentra en la parte de abajo lo realice para la siguiente tabla:

 

Pero no se si tengo que hacer lo mismo para la tabla de arriba.

 






 Tabla 4-1


Dia

Noche


 

 

 


 

Fuerte

Moderado 

Ligero

Nublado

Claro


Clase (a)

1

2

3

4

5


<2

A

A-B

B

E

F


2-3

A-B

B

C

E

F


3-5

B

B-C

C

D

E


5-6

C

C-D

D

D

D


>6

C

D

D

D

D
 
 

clasatm<- function(nivel,  velviento) 

 {  

if (velviento <  2) {  
    {
  switch(nivel,
        fuerte  = "A",
        moderado = "B",
        leve =  "B",
         nubes= "E",
        claro =  "F" )
    }

                                  }

else

if ((velviento >= 2)&(velviento<3)) {
     {
switch(nivel,
        fuerte  = "B",
        moderado = "B",
        leve =  "C",
         nubes = "E",
        claro =  "F" )
     }
                                                                 }

else

if ((velviento >= 3)&(velviento<5)) {
     {
switch(nivel,
        fuerte  = "B",
        moderado = "C",
        leve =  "C",
        nubes = "D",
        claro =  "E" )
     }
                                                          }

else

if ((velviento >= 5)&(velviento<6)) {
     {
switch(nivel,
        fuerte  = "C",
        moderado = "D",
        leve =  "D",
        nubes = "D",
        claro =  "D" )
     }
                                                          }
else

if (velviento >= 6) {
     {
switch(nivel,
        fuerte  = "C",
        moderado = "D",
        leve =  "D",
        nubes = "D",
        claro =  "D" )
     }
                                   }


  }

 

clasatm("leve", 1.5)

 

Saludos  

Mariana Martínez Sánchez


_________________________________________________________________
[[elided Hotmail spam]]

	[[alternative HTML version deleted]]

