sample(1:100,5,replace=F) [1] 48 36 73 30 93 sample(1:10,7,replace=F) [1] 6 8 1 7 9 5 10 sample(1:10,7,replace=T) [1] 8 9 10 9 8 3 8 cod_data=c(6,12,7,9,15,8,7,11,20,10,8,18,5,12,7,8,5,15,10,9,5,8,72,7,21,10,12,9,6,6,14,12,21,11,5,9,6,12,8,8,12,6,9,4,19,32,9,11,16,5) selected_cod=sample(cod_data,5,replace=F) selected_cod [1] 6 12 12 12 5 mean(selected_cod) [1] 9.4 c(1,2,3,4,5) [1] 1 2 3 4 5 data=c(1,2,3,4,5) 2*data [1] 2 4 6 8 10 dataset=c(1,10,100,1000,10000) log10(dataset) [1] 0 1 2 3 4 cod_data [1] 6 12 7 9 15 8 7 11 20 10 8 18 5 12 [15] 7 8 5 15 10 9 5 8 72 7 21 10 12 9 [29] 6 6 14 12 21 11 5 9 6 12 8 8 12 6 [43] 9 4 19 32 9 11 16 5 rank(cod_data) [1] 9.0 36.5 13.5 24.5 41.5 18.5 13.5 32.0 [9] 46.0 29.0 18.5 44.0 4.0 36.5 13.5 18.5 [17] 4.0 41.5 29.0 24.5 4.0 18.5 50.0 13.5 [25] 47.5 29.0 36.5 24.5 9.0 9.0 40.0 36.5 [33] 47.5 32.0 4.0 24.5 9.0 36.5 18.5 18.5 [41] 36.5 9.0 24.5 1.0 45.0 49.0 24.5 32.0 [49] 43.0 4.0 cod_data[17] [1] 5 cod_data[1:5] [1] 6 12 7 9 15 data=c(1,3,5,7,9,11,13,15,17,19) data=data+1 location=sampple(1:10,1,replace=F) Error in sampple(1:10, 1, replace = F) : could not find function “sampple” location=sample(1:10,1,replace=F) data[location] [1] 6 location=sample(1:50,10,replace=F) cod_data[location] [1] 6 5 8 14 10 9 5 16 8 15