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