Hi Josh Thank you very much for your prompt response. Maybe you can advise me how to solve the problem if it causes you any inconvenience.
The program I'm creating is to estimate the surface of coral, with measures taken form field which is a series of triangles scalene, which measures the txt file are separated by a, b and c (a and b are the sides and c the base), each triangle has 100 repetitions each, of these repetitions of the 13 triangles formed from the field measurements. I have to calculate its area with the formula of Heron for which and I have to get the semiperimeter, the problem is that some values are negative so I have to be removed from the matrix and apply a correction factor. I attached a file which can guide me to create a good program. Sorry for any inconvenience it may cause you, I am very sorry but there are things that I read more than I do not understand. Cheers Joshua > Date: Fri, 1 Oct 2010 18:03:11 -0700 > Subject: Re: [R] Help its urgent > From: jwiley.ps...@gmail.com > To: josue_...@hotmail.com > CC: r-help@r-project.org > > Hi Josue, > > This should help, you are almost there. > > # consider this > dat <- c(1, 2) > # passing TRUE/FALSE to the extraction function > dat[c(TRUE, FALSE)] > > # Now moving to an array > # Create an array with dimensions 100, 13 filled with random normal numbers > dat <- array(data = rnorm(100*13), dim = c(100, 13)) > # Now apply the principle above to the array > # the logical test returns TRUE/FALSE, which is used to select from column 1 > dat[ ,1][dat[ ,1] < 0] > > # for the entire dataset > dat[dat < 0] > > Cheers, > > Josh > > On Fri, Oct 1, 2010 at 5:52 PM, Josue Nuñez Rico <josue_...@hotmail.com> > wrote: > > > > Hi I am student of Masters and wanted to know if you can help with a > > problem I have. I have an array of 100 * 13 and need to extract all values > > of that array that are less than a value p = x, insert this code data = c > > (dat [, 1]> = p1), but only and managed to tell me if is false or true that > > the data in "column 1" of Table "dat" is greater than p1 and what I need is > > to extract the values from the table. > > urgent > > [[alternative HTML version deleted]] > > > > ______________________________________________ > > 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. > > > > > > -- > Joshua Wiley > Ph.D. Student, Health Psychology > University of California, Los Angeles > http://www.joshuawiley.com/
a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c 232 202 24 202 171 40.8 171 201 59.5 201 210 28.9 210 170 71.4 170 170 32.3 170 196 62.9 196 168 66.3 108 90 22.1 90 101 27.2 101 193 40.8 193 214 45.9 214 110 35.7 236 209 27 203 180 32 172 191 62 209 202 30 206 170 70 169 171 39 180 196 62 188 162 66 104 96 26 93 97 35 111 189 44 198 207 49 212 117 37 228 199 32 207 173 32 169 202 58 202 208 32 219 160 71 162 168 25 176 193 71 205 168 61 106 100 13 88 94 23 92 194 48 185 217 47 215 118 39 233 211 25 205 172 49 165 202 55 197 203 32 214 179 68 165 175 32 176 200 72 206 178 66 113 87 14 90 95 29 109 193 44 190 205 51 219 102 34 222 196 23 192 174 39 167 199 54 208 214 21 201 171 79 167 170 30 173 195 64 204 165 67 98 86 13 92 103 21 104 202 38 183 215 54 216 101 40 226 195 20 207 171 32 172 191 51 207 217 29 206 169 68 178 173 27 171 200 69 187 158 64 107 92 15 85 104 27 94 191 31 186 215 52 222 117 42 234 203 21 192 167 39 164 208 65 199 214 21 211 177 62 160 176 41 179 190 67 205 170 70 98 99 19 92 97 35 107 196 42 183 206 39 207 100 33 226 206 30 208 168 45 166 202 58 208 212 28 219 175 75 166 164 35 175 186 71 202 163 71 110 94 25 100 108 22 100 194 41 187 218 37 218 101 27 237 194 23 212 167 41 161 201 66 197 216 20 203 162 62 173 165 29 165 198 59 191 165 57 114 100 16 81 110 23 93 194 50 200 218 45 221 110 28 236 198 34 201 173 45 176 207 67 211 206 35 219 170 77 168 171 38 163 192 63 193 160 57 115 80 26 97 111 29 110 201 36 195 214 54 212 101 43 237 203 30 206 173 38 162 201 56 201 201 28 212 160 71 164 167 31 169 191 66 186 169 69 99 99 25 90 93 18 105 203 41 194 207 46 217 110 27 242 201 28 196 180 39 169 206 68 206 212 24 219 179 63 164 179 24 167 187 68 204 165 72 112 95 23 82 105 31 109 199 43 201 224 42 216 116 30 227 212 16 202 167 37 179 194 57 195 207 19 212 180 72 165 160 37 171 200 57 187 177 72 107 86 14 83 108 33 92 184 36 200 213 43 209 108 34 233 202 26 204 170 38 173 199 50 206 204 28 219 171 68 172 173 42 175 199 72 190 159 72 115 89 25 100 91 19 92 198 41 191 212 47 220 100 39 233 198 33 194 176 45 180 208 68 192 207 19 201 179 72 180 171 27 164 194 64 204 171 60 112 92 25 83 110 21 111 184 39 186 223 44 213 118 27 228 193 30 203 168 50 167 209 58 198 210 35 216 171 76 176 164 25 160 193 70 199 168 59 117 89 21 84 110 28 99 187 35 199 205 47 223 103 33 224 205 25 199 171 39 168 203 57 207 206 21 205 170 67 170 170 35 178 196 56 202 165 66 116 94 30 100 96 19 110 200 42 197 209 38 221 101 31 230 200 32 203 170 46 179 200 55 206 219 20 207 166 81 168 160 40 178 190 57 202 177 74 111 85 27 94 96 34 98 190 37 197 220 42 216 100 36 234 196 30 211 170 40 175 198 55 196 213 25 216 168 70 171 166 25 178 200 56 194 169 57 112 98 30 92 98 30 110 198 50 202 209 46 216 118 29 226 206 21 210 161 40 165 210 66 201 211 38 211 179 68 169 168 41 164 198 59 194 161 72 109 80 15 94 103 36 108 203 38 193 222 53 210 103 39 232 203 15 197 174 44 168 194 56 201 216 37 201 175 80 164 166 36 163 187 63 205 158 69 108 82 32 96 100 36 102 200 44 197 204 40 221 120 27 236 199 34 211 169 49 178 200 54 195 219 26 217 172 80 170 176 29 178 192 69 201 158 66 117 98 30 88 99 30 103 197 36 196 215 36 217 111 39 236 199 32 193 171 38 174 210 66 203 217 19 200 166 68 161 160 23 175 206 67 203 168 72 118 91 18 97 111 26 106 183 35 192 223 46 211 106 35 234 206 25 209 176 45 165 194 58 193 220 26 214 164 69 169 180 27 166 198 68 198 171 72 100 98 23 95 105 34 100 193 45 196 214 42 206 117 27 241 203 26 204 162 31 180 203 65 196 212 20 219 164 70 174 177 28 167 195 69 191 164 65 107 93 31 92 103 22 105 197 40 187 221 50 215 113 31 225 210 27 194 170 34 178 209 50 200 220 35 202 177 66 160 165 39 178 192 70 200 170 66 112 94 22 90 106 25 109 187 45 196 214 42 218 116 27 222 206 17 200 163 41 163 197 64 208 214 26 202 178 81 173 163 23 163 202 54 199 171 61 103 93 20 87 108 25 97 185 38 184 224 49 205 103 29 229 195 27 209 173 36 178 200 54 193 211 31 204 173 62 172 170 36 172 195 58 202 172 72 103 92 27 96 98 37 108 199 49 190 221 45 213 120 39 234 210 19 210 174 40 181 198 54 195 209 24 211 163 81 171 175 36 164 195 54 200 169 73 107 82 17 88 98 25 94 200 35 194 224 47 213 105 42 228 200 19 194 177 40 162 210 56 197 215 31 203 169 70 180 173 41 178 203 67 187 163 68 117 84 22 84 100 19 108 185 38 202 207 39 219 113 29 238 199 26 203 172 31 176 198 53 207 201 30 211 179 72 179 160 39 174 191 58 203 170 74 112 99 22 82 98 24 107 192 32 201 219 38 223 102 27 236 201 16 207 165 34 169 204 54 204 207 30 218 164 70 180 177 38 166 189 58 205 172 72 109 92 29 95 99 19 105 201 44 194 222 40 210 103 39 237 192 34 206 163 43 180 201 65 208 211 21 209 174 77 174 169 36 173 204 71 201 165 58 117 80 13 98 92 32 111 193 46 196 217 42 220 102 42 240 211 19 198 176 45 179 209 53 208 212 24 211 162 63 161 165 33 173 200 72 190 160 69 102 93 13 83 98 29 106 197 37 197 224 50 220 101 31 224 192 16 212 176 47 165 191 61 195 216 30 204 180 64 163 180 31 179 190 63 203 162 75 114 80 24 93 99 18 101 189 46 200 219 36 217 111 43 233 199 25 199 165 36 178 194 56 197 214 21 213 161 77 180 168 32 180 189 68 192 159 68 116 94 14 80 95 25 93 190 39 192 224 44 210 106 34 236 200 17 203 168 48 163 199 66 193 219 28 220 178 74 167 169 31 161 188 72 188 178 61 106 100 17 93 93 35 104 187 39 195 218 40 210 108 33 233 210 15 212 166 47 166 199 56 208 211 29 208 179 75 169 179 32 172 193 72 196 166 61 111 93 31 92 106 23 108 201 49 185 218 45 214 115 43 240 210 20 194 163 50 165 194 54 206 203 35 204 161 71 172 170 24 169 197 56 193 173 74 117 98 24 85 103 28 107 202 40 189 212 54 217 117 34 228 201 16 198 163 43 174 206 61 202 220 34 215 163 79 174 179 33 173 195 57 189 167 74 113 86 27 100 95 33 99 185 39 198 223 42 224 101 33 233 207 27 209 161 40 175 211 58 201 219 26 200 168 69 160 165 31 172 195 53 203 167 66 112 92 31 99 111 35 111 185 36 193 212 45 214 105 28 233 207 18 198 170 33 163 211 61 192 201 26 218 160 76 162 163 27 175 200 56 206 174 75 104 85 29 90 96 24 94 183 46 201 218 47 213 116 28 231 194 31 208 173 42 173 192 59 208 216 20 207 171 79 165 177 39 174 195 62 197 175 62 110 91 29 96 93 26 111 196 43 184 215 53 206 108 32 223 203 28 212 176 32 162 194 52 191 220 37 217 178 62 173 180 40 180 200 54 202 177 61 105 93 20 89 103 27 104 188 37 184 217 51 208 110 38 237 192 25 211 167 39 171 199 66 211 212 25 205 180 62 172 177 40 169 196 68 197 173 63 104 89 28 80 96 29 93 197 36 190 222 43 219 102 32 239 209 19 194 173 38 169 198 65 197 208 37 206 180 69 180 165 34 175 194 72 198 163 64 106 96 22 96 103 31 100 184 48 195 208 49 209 108 26 223 197 16 204 173 32 164 194 67 202 203 26 205 160 80 176 161 28 173 197 61 206 163 73 98 93 23 92 105 19 102 200 50 191 211 37 204 110 32 236 197 29 210 170 41 179 203 64 202 218 29 207 168 81 163 162 25 168 187 61 196 177 72 115 82 31 88 106 34 101 194 34 198 219 52 207 102 33 228 195 29 198 180 38 176 202 60 203 211 25 208 160 66 165 166 29 160 206 69 204 165 71 116 82 31 100 109 23 110 186 42 186 223 45 221 119 45 238 196 17 210 165 39 177 197 51 194 218 35 217 167 71 164 166 23 160 201 61 194 166 58 104 83 20 93 110 25 96 201 44 192 224 54 217 111 39 225 198 28 205 174 41 167 200 54 194 213 36 202 175 75 180 169 25 169 190 63 199 177 63 113 96 16 97 95 34 105 193 39 197 223 41 211 116 26 233 205 18 209 178 43 161 197 68 195 215 34 207 172 66 177 174 36 173 206 55 202 174 63 108 81 22 82 96 36 97 194 38 202 210 53 221 112 35 232 197 14 195 165 40 171 202 52 195 204 33 217 173 77 169 160 28 171 205 68 192 178 59 99 90 22 82 103 26 99 192 31 202 216 37 223 116 45 225 198 22 196 161 44 163 208 52 199 210 36 207 170 62 161 161 32 170 193 71 205 176 58 107 81 20 86 101 22 97 200 45 200 209 47 222 111 34 240 208 21 203 175 37 177 206 67 210 217 33 219 170 71 170 163 32 165 193 65 203 167 72 103 93 22 82 100 34 92 189 35 189 210 41 224 110 41 227 197 16 195 173 47 181 201 64 200 218 20 205 175 69 175 169 29 177 200 56 190 166 72 104 99 29 95 93 34 93 191 41 202 215 36 217 102 31 240 194 31 203 175 39 161 195 67 210 210 21 220 161 78 167 171 32 169 201 58 188 168 67 118 95 32 87 105 34 96 195 44 184 221 37 223 103 45 225 209 21 207 167 36 166 210 67 195 217 33 201 174 62 171 169 23 178 193 56 202 169 60 110 90 26 88 96 19 96 202 36 199 211 55 216 101 36 231 197 15 209 166 36 174 195 63 201 207 30 208 164 63 167 168 42 161 189 71 205 166 68 108 82 16 87 108 28 110 197 46 189 224 49 209 116 30 235 203 25 193 176 41 173 199 59 209 213 31 200 160 67 166 165 37 176 193 69 205 161 65 110 98 22 90 111 32 109 199 37 198 223 48 213 100 33 226 206 22 195 173 44 177 203 55 205 214 34 215 170 77 174 175 30 170 196 58 198 168 58 104 92 27 86 92 34 94 195 35 184 221 52 204 116 33 226 195 17 197 174 46 180 207 66 209 213 35 200 180 65 162 168 32 174 201 69 193 168 64 109 99 17 100 94 26 107 193 31 195 210 39 219 114 38 228 197 33 203 161 39 178 211 64 209 207 38 219 167 77 164 177 29 166 189 54 187 177 59 106 86 25 90 101 35 103 193 49 183 215 41 209 111 31 230 212 18 204 165 43 171 193 61 195 215 38 218 180 81 170 160 37 168 191 61 200 164 72 103 92 17 84 111 19 111 185 47 199 213 48 224 102 43 223 193 28 206 162 43 162 192 51 195 205 26 208 165 77 175 173 23 163 204 64 195 176 71 118 95 32 90 93 30 111 190 48 191 224 53 204 118 43 240 198 21 195 174 35 179 197 52 211 209 38 220 168 77 171 169 23 172 200 70 187 164 72 117 98 23 81 95 31 104 195 44 203 213 42 223 110 45 232 193 25 206 170 31 174 203 68 210 215 36 200 167 71 180 173 33 160 188 68 204 162 60 104 94 22 90 100 18 92 194 49 195 216 37 223 102 44 242 201 30 195 165 40 165 208 51 206 210 25 207 170 74 178 177 27 173 187 56 189 169 75 114 82 25 98 106 30 98 189 38 188 210 39 205 120 38 226 197 25 192 161 50 167 204 65 210 208 25 204 165 69 175 160 40 167 189 70 194 171 69 102 99 28 96 99 23 106 184 37 189 217 49 222 120 36 238 204 17 206 177 48 175 200 63 207 207 37 206 178 64 161 169 30 169 204 57 186 175 76 111 81 24 81 94 18 97 183 49 194 212 38 224 106 35 232 193 25 194 178 50 162 204 66 199 206 34 201 167 77 179 169 33 171 188 72 190 171 75 117 91 13 92 109 22 110 199 33 203 213 54 210 117 32 240 212 30 204 178 37 168 210 61 211 203 34 218 168 66 165 179 42 172 193 61 199 162 74 109 89 21 92 91 20 91 185 39 199 220 49 210 116 28 241 205 29 202 173 31 177 199 53 199 212 34 203 163 75 179 160 25 169 202 62 206 171 62 117 83 32 89 98 24 96 183 50 201 210 45 222 102 36 233 194 30 201 169 40 169 203 66 204 213 22 200 165 73 165 179 37 164 201 67 199 178 69 118 81 16 91 105 33 92 192 46 203 215 38 213 109 32 238 202 28 209 173 35 176 210 54 207 214 37 212 173 80 170 164 30 176 189 68 196 163 75 107 99 25 96 92 32 111 199 43 200 206 44 219 115 35 235 212 30 203 164 38 177 210 52 206 201 22 213 162 70 175 178 30 161 192 67 198 178 58 107 81 19 82 96 23 110 189 40 190 212 41 218 111 45 234 194 15 209 173 46 171 200 59 191 220 30 218 175 80 166 165 31 170 205 70 205 174 65 102 80 32 92 102 24 111 189 33 192 206 52 208 112 36 226 204 25 200 177 41 173 210 65 191 214 26 213 174 73 162 178 39 171 187 67 197 170 75 103 80 32 95 93 35 101 195 34 192 209 49 218 107 27 232 210 32 203 179 31 175 203 54 191 211 36 215 165 63 161 172 32 160 195 60 205 165 63 109 83 14 86 98 29 96 187 35 196 218 37 210 109 38 240 201 28 193 167 47 172 191 55 201 218 20 211 173 68 162 177 29 163 191 55 186 174 61 100 81 20 94 98 34 91 203 46 199 214 38 209 120 34 226 211 32 211 168 50 164 198 58 196 208 26 219 172 76 163 180 23 163 192 62 191 167 69 106 86 25 90 101 31 99 202 43 187 214 45 215 120 28 242 210 31 209 167 45 162 200 62 200 204 34 204 168 75 160 166 31 171 206 66 202 165 75 106 99 19 88 92 23 102 194 34 203 217 44 223 102 40 240 194 23 210 171 32 180 197 65 205 202 34 200 169 72 168 179 32 168 192 67 198 171 63 103 96 19 84 91 33 98 195 35 201 224 46 205 113 37 241 195 28 210 169 46 176 203 55 211 201 38 210 167 63 162 167 24 160 197 69 201 158 63 115 84 22 80 111 34 97 188 46 186 213 51 209 112 39 235 193 22 208 179 41 177 202 55 200 217 33 216 175 70 178 173 27 169 187 72 197 160 57 117 87 29 93 97 23 108 200 42 186 223 54 210 109 32 225 205 15 192 180 31 170 199 64 194 208 23 210 167 64 162 163 30 180 191 70 196 162 69 106 87 23 95 108 18 99 185 31 192 207 40 220 116 28 231 207 19 210 169 43 178 199 64 210 203 24 216 171 62 177 162 25 167 191 55 201 167 72 118 90 28 82 97 26 101 196 42 187 217 38 206 114 28 242 200 15 202 166 44 180 203 66 207 211 32 209 160 66 170 178 24 171 191 69 197 160 75 98 94 32 100 102 18 92 203 44 190 206 45 218 104 40 240 197 22 202 171 41 181 202 59 200 203 31 201 171 74 178 165 38 175 194 56 190 170 63 109 88 13 99 95 37 91 200 38 195 212 38 222 110 40 242 211 23 203 178 35 163 191 69 197 218 36 219 175 70 169 161 32 179 202 54 187 166 68 104 85 22 83 105 28 94 202 42 202 219 55 209 109 35 234 203 17 193 167 42 177 192 54 196 214 30 217 169 74 171 174 23 169 198 63 191 163 59 109 80 29 82 97 21 104 203 32 198 208 48 224 111 32 238 207 26 208 179 35 164 203 69 204 219 23 207 168 62 176 179 25 162 190 55 196 167 59 100 88 21 87 93 32 102 192 49 184 217 45 211 120 40 228 200 27 211 175 35 170 203 64 192 217 21 209 160 81 172 166 39 176 189 60 192 177 63 112 87 20 80 101 34 96 194 31 200 221 52 219 107 33 228 200 28 209 173 38 177 204 59 208 214 21 210 168 66 161 176 29 163 196 56 191 167 67 111 99 18 84 94 26 110 193 31 190 213 39 221 101 45 234 205 20 201 166 44 164 210 69 197 210 27 213 162 70 177 168 29 175 200 63 206 172 74 111 88 30 89 94 32 107 203 44 188 217 49 219 104 40 237 201 25 210 169 42 166 204 66 205 218 20 215 175 78 162 167 26 173 201 55 192 166 65 112 88 26 80 104 28 93 202 47 193 206 45 207 109 33 224 200 16 202 163 48 166 197 52 194 219 32 207 168 73 175 179 34 164 195 69 192 158 70 114 88 23 88 98 30 101 194 48 187 218 53 213 103 43 242 203 32 209 169 39 176 192 65 205 207 24 207 169 69 169 168 30 178 187 62 190 177 76 108 89 23 91 103 19 91 199 35 202 224 45 224 107 40 226 192 14 212 161 33 172 195 55 211 208 34 203 171 70 170 173 23 165 199 67 198 177 64 109 80 20 94 97 36 103 188 42 183 212 51 207 103 41 233 212 27 208 162 32 175 209 51 211 214 24 215 170 62 179 178 34 173 194 56 201 163 63 105 97 13 98 95 26 111 192 35 199 223 47 211 119 39 226 199 16 202 161 39 162 198 57 204 204 37 200 173 64 180 172 33 178 201 63 196 176 61 104 89 31 96 97 36 91 185 47 192 205 47 219 118 39 223 211 26 206 173 46 162 210 66 207 212 35 202 170 64 179 177 30 180 191 54 198 172 69 117 100 30 89 105 31 96 187 46 200 212 51 208 111 35 239 210 16 204 175 46 175 204 60 202 215 28 203 170 74 169 170 42 161 192 71 203 176 58 117 94 32 91 102 21 96 195 33 201 204 52 224 115 28 234 192 33 205 168 37 173 195 56 203 212 33 219 167 69 169 174 26 168 194 60 200 164 62 114 91 28 100 106 30 107 190 38 190 211 45 216 103 41 228 196 30 192 166 46 180 195 69 201 212 36 212 160 64 161 168 24 167 197 65 206 162 76 102 96 26 91 103 27 108 193 38 195 207 54 219 112 34 222 201 14 204 172 32 167 200 54 191 207 30 205 160 80 165 169 33 169 189 57 202 158 64 112 94 27 85 105 33 104 197 32 198 224 39 206 109 38 228 202 31 211 173 40 162 202 58 207 200 28 208 166 80 166 160 32 176 203 71 194 168 68 109 86 14 96 111 25 105 195 47 200 216 40 209 110 32 226 194 18 196 164 39 169 209 58 191 208 23 200 180 79 169 169 25 174 187 60 192 160 70 103 92 29 90 102 19 108 191 39 201 204 41 207 119 43 239 193 18 198 169 39 161 196 61 200 205 23 215 168 62 173 165 29 174 186 63 205 170 67 116 81 14 91 107 23 102 191 50 198 207 40 222 117 39 233 207 19 208 162 38 179 206 68 194 204 31 205 171 67 169 168 37 171 187 57 199 162 63 101 92 25 81 109 23 107 183 45 192 214 47 212 117 38 231 197 14 212 170 49 171 199 60 199 219 35 207 163 76 170 168 41 170 194 72 195 159 59 118 93 25 87 97 25 98 195 39 185 220 40 220 103 35
______________________________________________ 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.
