You can use something like this to make sure that h2 is a subset of h1 in consecutive order:
> h1 <- 1:50 > h2 <- 25:30 > hm <- match(h2, h1) > all(diff(hm) == 1) [1] TRUE > On Tue, Mar 17, 2009 at 6:42 AM, emj83 <stp08...@shef.ac.uk> wrote: > > I have two numerical vectors; hun2 is a subset of hun1: > >> hun1 > [1] 147 198 141 170 184 136 150 134 144 161 124 103 107 110 121 79 106 > 51 > [19] 102 109 52 71 52 80 95 78 75 96 101 107 107 80 71 49 71 > 64 > [37] 58 68 75 85 55 52 70 90 98 90 100 98 74 78 60 69 106 > 103 > [55] 106 124 111 97 66 83 54 58 74 76 73 101 68 50 45 69 69 > 75 > [73] 80 55 79 58 61 72 90 91 99 58 63 57 72 36 58 44 63 > 54 > [91] 39 41 48 65 86 73 74 69 66 59 52 68 91 100 151 112 119 > 93 > [109] 66 73 87 99 79 109 94 80 63 51 46 39 28 34 49 45 36 > 32 > [127] 36 39 52 63 59 47 57 52 46 39 54 53 80 43 48 37 42 > 43 > [145] 47 34 42 45 50 48 49 55 62 46 61 60 42 48 58 49 60 > >>hun2 > [1] 151 112 119 93 66 73 87 99 79 109 94 80 63 51 46 39 28 34 > 49 > [20] 45 36 32 36 39 52 63 59 47 57 52 46 39 54 53 80 43 48 > 37 > [39] 42 43 47 34 42 45 50 48 49 55 62 46 61 60 42 48 58 49 > 60 > > i want to cbind hun1 to hun2 at the position where they match. > > i have attempted to start this by using pmatch() to identify where it is > they match- i get the following results. > >> pmatch(hun1,hun2,duplicates.ok=TRUE) > [1] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 9 NA 14 NA 10 25 NA 25 > 12 NA > [26] NA NA NA NA NA NA 12 NA 19 NA NA 55 NA NA NA 48 25 NA NA NA NA NA NA > NA NA > [51] 52 NA NA NA NA NA NA NA 5 NA 33 55 NA NA 6 NA NA 45 20 NA NA NA 12 > 48 9 > [76] 55 51 NA NA NA 8 55 13 29 NA 21 55 NA 13 33 16 NA 37 NA NA 6 NA NA > 5 27 > [101] 25 NA NA NA 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 > 20 21 > [126] 22 21 16 25 13 27 28 29 25 15 16 33 34 12 36 37 38 39 36 28 18 39 20 > 45 37 > [151] 19 48 49 15 51 52 39 37 55 19 52 > > is there anyway that i can specify pmatch() to work if and only if it > identifies all of hun2: something like this??? > [1] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA > NA NA > [26] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA > NA NA > [51] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA > NA NA > [76] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA > NA NA > [101] NA NA NA NA NA NA NA NA NA 1 2 3 4 5 6 7 8 9 10 11 12 13 14 > 15 16 > [126] 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 > 40 41 > [151] 42 43 44 45 46 47 48 49 50 51 52 > > > > -- > View this message in context: > http://www.nabble.com/matching-vectors-tp22556470p22556470.html > Sent from the R help mailing list archive at Nabble.com. > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > -- Jim Holtman Cincinnati, OH +1 513 646 9390 What is the problem that you are trying to solve? ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
