Ejercicio 1

Calcule los valores numéricos aproximados de la operaciones matemáticas

Ejercicio 1
Ejercicio 1
a <- (0.3*0.15)/(0.3*0.15+0.2*0.8+0.5*0.12)

print(a)
## [1] 0.1698113
b <- (5^6)/(factorial(6))*exp(-5)
print(b)
## [1] 0.1462228
c <- (factorial(20))/(factorial(7)*factorial(20-7))*0.4^7*0.6^13
print(c)
## [1] 0.1658823

Ejercicio 2

Realiza las siguientes sumas:

s1 <- 1:1000
s1t <- sum(s1)
print(s1)
##    [1]    1    2    3    4    5    6    7    8    9   10   11   12   13   14
##   [15]   15   16   17   18   19   20   21   22   23   24   25   26   27   28
##   [29]   29   30   31   32   33   34   35   36   37   38   39   40   41   42
##   [43]   43   44   45   46   47   48   49   50   51   52   53   54   55   56
##   [57]   57   58   59   60   61   62   63   64   65   66   67   68   69   70
##   [71]   71   72   73   74   75   76   77   78   79   80   81   82   83   84
##   [85]   85   86   87   88   89   90   91   92   93   94   95   96   97   98
##   [99]   99  100  101  102  103  104  105  106  107  108  109  110  111  112
##  [113]  113  114  115  116  117  118  119  120  121  122  123  124  125  126
##  [127]  127  128  129  130  131  132  133  134  135  136  137  138  139  140
##  [141]  141  142  143  144  145  146  147  148  149  150  151  152  153  154
##  [155]  155  156  157  158  159  160  161  162  163  164  165  166  167  168
##  [169]  169  170  171  172  173  174  175  176  177  178  179  180  181  182
##  [183]  183  184  185  186  187  188  189  190  191  192  193  194  195  196
##  [197]  197  198  199  200  201  202  203  204  205  206  207  208  209  210
##  [211]  211  212  213  214  215  216  217  218  219  220  221  222  223  224
##  [225]  225  226  227  228  229  230  231  232  233  234  235  236  237  238
##  [239]  239  240  241  242  243  244  245  246  247  248  249  250  251  252
##  [253]  253  254  255  256  257  258  259  260  261  262  263  264  265  266
##  [267]  267  268  269  270  271  272  273  274  275  276  277  278  279  280
##  [281]  281  282  283  284  285  286  287  288  289  290  291  292  293  294
##  [295]  295  296  297  298  299  300  301  302  303  304  305  306  307  308
##  [309]  309  310  311  312  313  314  315  316  317  318  319  320  321  322
##  [323]  323  324  325  326  327  328  329  330  331  332  333  334  335  336
##  [337]  337  338  339  340  341  342  343  344  345  346  347  348  349  350
##  [351]  351  352  353  354  355  356  357  358  359  360  361  362  363  364
##  [365]  365  366  367  368  369  370  371  372  373  374  375  376  377  378
##  [379]  379  380  381  382  383  384  385  386  387  388  389  390  391  392
##  [393]  393  394  395  396  397  398  399  400  401  402  403  404  405  406
##  [407]  407  408  409  410  411  412  413  414  415  416  417  418  419  420
##  [421]  421  422  423  424  425  426  427  428  429  430  431  432  433  434
##  [435]  435  436  437  438  439  440  441  442  443  444  445  446  447  448
##  [449]  449  450  451  452  453  454  455  456  457  458  459  460  461  462
##  [463]  463  464  465  466  467  468  469  470  471  472  473  474  475  476
##  [477]  477  478  479  480  481  482  483  484  485  486  487  488  489  490
##  [491]  491  492  493  494  495  496  497  498  499  500  501  502  503  504
##  [505]  505  506  507  508  509  510  511  512  513  514  515  516  517  518
##  [519]  519  520  521  522  523  524  525  526  527  528  529  530  531  532
##  [533]  533  534  535  536  537  538  539  540  541  542  543  544  545  546
##  [547]  547  548  549  550  551  552  553  554  555  556  557  558  559  560
##  [561]  561  562  563  564  565  566  567  568  569  570  571  572  573  574
##  [575]  575  576  577  578  579  580  581  582  583  584  585  586  587  588
##  [589]  589  590  591  592  593  594  595  596  597  598  599  600  601  602
##  [603]  603  604  605  606  607  608  609  610  611  612  613  614  615  616
##  [617]  617  618  619  620  621  622  623  624  625  626  627  628  629  630
##  [631]  631  632  633  634  635  636  637  638  639  640  641  642  643  644
##  [645]  645  646  647  648  649  650  651  652  653  654  655  656  657  658
##  [659]  659  660  661  662  663  664  665  666  667  668  669  670  671  672
##  [673]  673  674  675  676  677  678  679  680  681  682  683  684  685  686
##  [687]  687  688  689  690  691  692  693  694  695  696  697  698  699  700
##  [701]  701  702  703  704  705  706  707  708  709  710  711  712  713  714
##  [715]  715  716  717  718  719  720  721  722  723  724  725  726  727  728
##  [729]  729  730  731  732  733  734  735  736  737  738  739  740  741  742
##  [743]  743  744  745  746  747  748  749  750  751  752  753  754  755  756
##  [757]  757  758  759  760  761  762  763  764  765  766  767  768  769  770
##  [771]  771  772  773  774  775  776  777  778  779  780  781  782  783  784
##  [785]  785  786  787  788  789  790  791  792  793  794  795  796  797  798
##  [799]  799  800  801  802  803  804  805  806  807  808  809  810  811  812
##  [813]  813  814  815  816  817  818  819  820  821  822  823  824  825  826
##  [827]  827  828  829  830  831  832  833  834  835  836  837  838  839  840
##  [841]  841  842  843  844  845  846  847  848  849  850  851  852  853  854
##  [855]  855  856  857  858  859  860  861  862  863  864  865  866  867  868
##  [869]  869  870  871  872  873  874  875  876  877  878  879  880  881  882
##  [883]  883  884  885  886  887  888  889  890  891  892  893  894  895  896
##  [897]  897  898  899  900  901  902  903  904  905  906  907  908  909  910
##  [911]  911  912  913  914  915  916  917  918  919  920  921  922  923  924
##  [925]  925  926  927  928  929  930  931  932  933  934  935  936  937  938
##  [939]  939  940  941  942  943  944  945  946  947  948  949  950  951  952
##  [953]  953  954  955  956  957  958  959  960  961  962  963  964  965  966
##  [967]  967  968  969  970  971  972  973  974  975  976  977  978  979  980
##  [981]  981  982  983  984  985  986  987  988  989  990  991  992  993  994
##  [995]  995  996  997  998  999 1000
s2 <- 2^(0:10)
s2t <- sum(s2)
print(s2t)
## [1] 2047

Ejercicio 3

Crear un vector alumnos con 20 nombres

El vector alumnos representa los nombres de una serie de alumnos

alumnos<-c("LUIS","BRYAN","NATALY","MYRIAN","JUAN","THOMAS",
           "NICOLAS","LUCIANA","ANDREA","ENRIQUE","RAFAEL",
           "JUANA","ELENA","MARCO","SANDRA","ALEJANDRO","ESTEBAN",
           "MELANY","NICOLE","JOSELYN")
print("Cantidad de componentes del vector alumnos")
## [1] "Cantidad de componentes del vector alumnos"
a<-length(alumnos)

cat("El vector tiene",a ,"componentes")
## El vector tiene 20 componentes
print("Posiciones donde se encuentra la letra 'A' en el vector alumnos")
## [1] "Posiciones donde se encuentra la letra 'A' en el vector alumnos"
b<-which(grepl("A", alumnos))

cat("En esas posiciones se encuentra la letra A:",b)
## En esas posiciones se encuentra la letra A: 2 3 4 5 6 7 8 9 11 12 13 14 15 16 17 18

Ejercicio 4

Crear un vector de notas de un examen

notas<-c(15,13,14,12,17,20,20,16,18,18,13,14,12,8,5,20,15,14,16,14)
print("Componentes de la nota")
## [1] "Componentes de la nota"
c<-length(notas)

cat("El vector tiene",c ,"componentes")
## El vector tiene 20 componentes
print("Suma de todas las notas")
## [1] "Suma de todas las notas"
d<-sum(notas)

cat("la suma de las notas es:",d)
## la suma de las notas es: 294
print("Media aritmetica de todas las notas")
## [1] "Media aritmetica de todas las notas"
e<-mean(notas)

cat("la media de las notas es:",e)
## la media de las notas es: 14.7
print("Posicion de las notas mayores a 7")
## [1] "Posicion de las notas mayores a 7"
f<-notas[notas > 14]
cat("Estas son las notas mayores a 14:",f)
## Estas son las notas mayores a 14: 15 17 20 20 16 18 18 20 15 16
print("Notas ordenadas de mayor a menor")
## [1] "Notas ordenadas de mayor a menor"
g<-sort(notas, decreasing = TRUE)
cat("las notas ordenadas de mayor a menor:",g)
## las notas ordenadas de mayor a menor: 20 20 20 18 18 17 16 16 15 15 14 14 14 14 13 13 12 12 8 5
print("Notas ordenadas de menor a mayor")
## [1] "Notas ordenadas de menor a mayor"
h<-sort(notas)
cat("las notas ordenadas de menor a mayor:",h)
## las notas ordenadas de menor a mayor: 5 8 12 12 13 13 14 14 14 14 15 15 16 16 17 18 18 20 20 20
print("Nota maxima")
## [1] "Nota maxima"
i<-max(notas)
cat("La nota maxima es:",i)
## La nota maxima es: 20
print("Posicion de la nota maxima")
## [1] "Posicion de la nota maxima"
j<-which.max(notas)
cat("En esas posicione esta la nota maxima:",j)
## En esas posicione esta la nota maxima: 6

#EJERCICIO 5

Realizar ejercicios a partir de los vectores alumnos y notas

print("Visualiza las notas de los 10 primeros alumnos")
## [1] "Visualiza las notas de los 10 primeros alumnos"
notas10 <- notas[1:10]
print(notas10)
##  [1] 15 13 14 12 17 20 20 16 18 18
print("Suma las notas de los 10 primeros alumnos del vector")
## [1] "Suma las notas de los 10 primeros alumnos del vector"
sum10p <- sum(notas10)
print(sum10p)
## [1] 163
cat("La suma de las notas de los 10 primeros alumnos es",sum10p)
## La suma de las notas de los 10 primeros alumnos es 163
print("¿Cuántos alumnos hay en total?")
## [1] "¿Cuántos alumnos hay en total?"
tot <- length(notas)
print(tot)
## [1] 20
cat("Existen",tot, "alumnos")
## Existen 20 alumnos
print("Suma las notas de los alumnos")
## [1] "Suma las notas de los alumnos"
sumaa<-sum(notas)
cat("La suma de las notas de los alumnos es",sumaa)
## La suma de las notas de los alumnos es 294
print("¿Cuántos alumnos han aprobado?")
## [1] "¿Cuántos alumnos han aprobado?"
apro<-length(which(notas>=13.5))
cat("Han reprobado",apro,"alumnnos")
## Han reprobado 14 alumnnos
print("¿Qué porcentaje de alumnos han aprobado?")
## [1] "¿Qué porcentaje de alumnos han aprobado?"
porapro <- (apro / a) * 100
print(porapro)
## [1] 70
cat("El porcentaje de alumnos aprovados es",porapro, "%")
## El porcentaje de alumnos aprovados es 70 %
print("¿Cuáles han sido las notas máxima y mínima?")
## [1] "¿Cuáles han sido las notas máxima y mínima?"
notmin<-min(notas)
notmax<-max(notas)
cat("La nota maxima es",notmax)
## La nota maxima es 20
cat("La nota minima es",notmin)
## La nota minima es 5
print("¿De qué alumnos son la máxima y mínima notas?")
## [1] "¿De qué alumnos son la máxima y mínima notas?"
indice_max <- which.max(notas)
alumno_nota_maxima <- alumnos[indice_max]
nota_maxima <- notas[indice_max]

indice_min <- which.min(notas)
alumno_nota_minima <- alumnos[indice_min]
nota_minima <- notas[indice_min]

cat("El alumno con la nota máxima es", alumno_nota_maxima, 
    "con una nota de", nota_maxima, "\n")
## El alumno con la nota máxima es THOMAS con una nota de 20
cat("El alumno con la nota mínima es", alumno_nota_minima, 
    "con una nota de", nota_minima, "\n")
## El alumno con la nota mínima es SANDRA con una nota de 5
print("Nota media de alumnos, teniendo en cuenta sólo a los que han aprobado.")
## [1] "Nota media de alumnos, teniendo en cuenta sólo a los que han aprobado."
notas_aprobados <- notas[notas >= 13.5]
medapro <- mean(notas_aprobados)
print(medapro)
## [1] 16.5
cat("La nota media de los alumnos aprovados es",medapro)
## La nota media de los alumnos aprovados es 16.5