Crop image to desired size
Arguments
- img
----Array, input image array
- height
----Int, height of the desired image
- width
----Int, width of the desired image
Examples
img <- array(runif(1000),dim=c(10,10,3))
Crop(img, 8,8)
#> , , 1
#>
#> [,1] [,2] [,3] [,4] [,5] [,6] [,7]
#> [1,] 0.87066734 0.94224381 0.2703532 0.03807807 0.15395403 0.7695087 0.9928365
#> [2,] 0.78189778 0.27090640 0.9976848 0.95342294 0.07470254 0.1589020 0.4822621
#> [3,] 0.36660810 0.81097869 0.2274415 0.78189443 0.40336833 0.2731175 0.2964307
#> [4,] 0.31738601 0.65564399 0.8748938 0.83330570 0.30979615 0.7843591 0.9139159
#> [5,] 0.95052866 0.01778917 0.4840121 0.38131347 0.22608789 0.8412996 0.3478496
#> [6,] 0.08029869 0.39661395 0.5186113 0.30962419 0.47094838 0.4858573 0.1033830
#> [7,] 0.33995414 0.44424147 0.3044055 0.60222587 0.84658562 0.2766742 0.5071537
#> [8,] 0.26862018 0.20073753 0.6283597 0.64679215 0.97045150 0.0698961 0.2040160
#> [,8]
#> [1,] 0.1169833
#> [2,] 0.4800553
#> [3,] 0.6046857
#> [4,] 0.8935897
#> [5,] 0.3593781
#> [6,] 0.5870370
#> [7,] 0.2919184
#> [8,] 0.2496816
#>
#> , , 2
#>
#> [,1] [,2] [,3] [,4] [,5] [,6]
#> [1,] 0.03852783 0.006060245 0.1840578 0.47553852 0.7266719 0.004979161
#> [2,] 0.80953199 0.678626823 0.1050929 0.68156620 0.1834128 0.949263113
#> [3,] 0.71765345 0.789668839 0.4157745 0.02530427 0.9679710 0.731958905
#> [4,] 0.88485078 0.911828187 0.3923229 0.80408012 0.9169124 0.134817006
#> [5,] 0.77514542 0.887330654 0.7866787 0.31893784 0.7061617 0.801815511
#> [6,] 0.98693235 0.278407943 0.5202848 0.18142051 0.3058327 0.489132148
#> [7,] 0.79753795 0.103600362 0.1470244 0.23831918 0.8860275 0.141245900
#> [8,] 0.13134688 0.008421468 0.8224481 0.08698103 0.6504178 0.024571542
#> [,7] [,8]
#> [1,] 0.977806508 0.2865978
#> [2,] 0.686588900 0.1919203
#> [3,] 0.008755167 0.4134292
#> [4,] 0.349893063 0.5752359
#> [5,] 0.463027368 0.9157009
#> [6,] 0.214238719 0.7244575
#> [7,] 0.565649164 0.8067388
#> [8,] 0.633921169 0.6113452
#>
#> , , 3
#>
#> [,1] [,2] [,3] [,4] [,5] [,6] [,7]
#> [1,] 0.30557600 0.34669803 0.9258851 0.93568239 0.8626283 0.22731603 0.22672076
#> [2,] 0.05125107 0.68516395 0.6412047 0.95990904 0.6244251 0.48193804 0.94362588
#> [3,] 0.29183772 0.44723524 0.3764374 0.28773532 0.3583060 0.03208458 0.76624405
#> [4,] 0.46051071 0.48823592 0.1673627 0.36276050 0.2126456 0.68964218 0.31618285
#> [5,] 0.83880032 0.01145087 0.4571632 0.56831799 0.3722652 0.14467606 0.86283546
#> [6,] 0.49919873 0.80141899 0.1970960 0.37975763 0.7600299 0.52342576 0.09994909
#> [7,] 0.19580710 0.51344377 0.8506109 0.61168913 0.4281930 0.45601729 0.28339836
#> [8,] 0.25449534 0.62366826 0.2975856 0.02601561 0.3697581 0.87609840 0.86537864
#> [,8]
#> [1,] 0.8588363
#> [2,] 0.7722065
#> [3,] 0.8467146
#> [4,] 0.5173660
#> [5,] 0.8754751
#> [6,] 0.2653629
#> [7,] 0.8136401
#> [8,] 0.4359363
#>