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