Hi,
thank you for your response. I tried the
A[-1,]<-do.call(rbind,lapply(split(A[-1,],((1:nrow(A[-1,])-1)%/%2)+1),function(x){x[4]<-max(x[4]);x}))
but somehow my computer got stuck...
I tried the other option using rollapply and that works pretty well, doing
exactly what I wanted to get.
This is my final solution:
maxlig<-rollapply(A$lig[-1],2,max,align="right",fill=NA)
maxlig<-c(A$lig[[1]], maxlig) # to get back the value from 1st row
A<-cbind(A, maxlig)
A$lig<-A$maxlig
A$x <- ifelse(as.numeric(row.names(A)) %% 2==1, 'keep', '') # add column x
where value is 'keep' or blank
A <- A[A$x == "keep",] # remove where x is blank, keep the values in 10
minutes interval
A$maxlig<-A$x<-NULL
Thank you for your help,
Zuzana
On 13 February 2013 06:55, arun <smartpink...@yahoo.com> wrote:
> Hi,
>
> For the dataset A,
> Assuming that this is what you meant: the maximum value of "lig" in each 2
> rows excluding the first row:
>
> #dataset: A
>
> A[-1,]<-do.call(rbind,lapply(split(A[-1,],((1:nrow(A[-1,])-1)%/%2)+1),function(x){x[4]<-max(x[4]);x}))
> A
> # ok time secs lig geo ind
> #1 ok 2010-01-15 04:45:00 40193.45 28 17016001 5500519
> #2 ok 2010-01-15 04:49:59 40193.45 64 17016001 5500519
> #3 ok 2010-01-15 04:54:59 40193.45 64 17016001 5500519
> #4 ok 2010-01-15 04:59:59 40193.46 32 17016001 5500519
> #5 ok 2010-01-15 05:04:59 40193.46 32 17016001 5500519
> #6 ok 2010-01-15 05:09:59 40193.47 13 17016001 5500519
> #7 ok 2010-01-15 05:14:59 40193.47 13 17016001 5500519
> #8 ok 2010-01-15 05:19:59 40193.47 8 17016001 5500519
> #9 ok 2010-01-15 05:24:59 40193.48 8 17016001 5500519
> #10 ok 2010-01-15 05:29:59 40193.48 0 17016001 5500519
> #11 ok 2010-01-15 05:34:59 40193.48 0 17016001 5500519
> #12 ok 2010-01-15 05:39:59 40193.49 64 17016001 5500519
> #13 ok 2010-01-15 05:44:59 40193.49 64 17016001 5500519
> #14 ok 2010-01-15 05:49:59 40193.49 64 17016001 5500519
> #15 ok 2010-01-15 05:54:59 40193.50 64 17016001 5500519
> #16 ok 2010-01-15 05:59:59 40193.50 64 17016001 5500519
> #17 ok 2010-01-15 06:04:59 40193.50 64 17016001 5500519
> #18 ok 2010-01-15 06:09:59 40193.51 51 17016001 5500519
> #19 ok 2010-01-15 06:14:59 40193.51 51 17016001 5500519
> #20 ok 2010-01-15 06:19:59 40193.51 64 17016001 5500519
>
> #If you need a rolling max,
> library(zoo)
> rollapply(A$lig,2,max,align="right",fill=NA)
> #[1] NA 64 64 44 32 22 13 4 8 8 0 45 64 64 64 64 64 64 51 64
>
>
> A.K.
>
>
>
>
>
> ----- Original Message -----
> From: zuzana zajkova <zuzu...@gmail.com>
> To: Rui Barradas <ruipbarra...@sapo.pt>
> Cc: r-help@r-project.org
> Sent: Tuesday, February 12, 2013 6:53 PM
> Subject: Re: [R] Max value of each 2 rows in dataframe
>
> Hi,
>
> sorry for not useable data...
>
> When I tried to use the dput function to the dataframe let's call it A, had
> some problems with the time and clock variables... however I attach an
> other dataframe B, which is created by merging A with other dataframe. The
> B dataframe has a little different structure as I mentioned before about B,
> each time is kind of doubled by variable "fix".
>
> I realized also that probably the most simple way would be to apply the
> changes directly to the original source dataframe (has 119 313 rows), which
> is later used for creating other dataframes.
> Here I attach few lines (hope this format will work well), data are grabbed
> every 5 minutes. For this data I would like to save the first row as it is
> and from there save the max value of next 5 and 10 minutes.
> example: the 3rd line should get the "lig" value equal to max of "lig"
> value of line 2 and 3 and so on
>
>
> structure(list(ok = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
> 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = "ok", class =
> "factor"),
> time = structure(c(1263548700, 1263548999, 1263549299, 1263549599,
> 1263549899, 1263550199, 1263550499, 1263550799, 1263551099,
> 1263551399, 1263551699, 1263551999, 1263552299, 1263552599,
> 1263552899, 1263553199, 1263553499, 1263553799, 1263554099,
> 1263554399), class = c("POSIXct", "POSIXt"), tzone = ""),
> secs = c(40193.447917, 40193.451389, 40193.454861, 40193.458333,
> 40193.461806, 40193.465278, 40193.46875, 40193.472222, 40193.475694,
> 40193.479167, 40193.482639, 40193.486111, 40193.489583, 40193.493056,
> 40193.496528, 40193.5, 40193.503472, 40193.506944, 40193.510417,
> 40193.513889), lig = c(28L, 64L, 44L, 32L, 22L, 13L, 4L,
> 0L, 8L, 0L, 0L, 45L, 64L, 64L, 64L, 47L, 64L, 50L, 51L,
> 64L), geo = c(17016001, 17016001, 17016001, 17016001, 17016001,
> 17016001, 17016001, 17016001, 17016001, 17016001, 17016001,
> 17016001, 17016001, 17016001, 17016001, 17016001, 17016001,
> 17016001, 17016001, 17016001), ind = c(5500519, 5500519,
> 5500519, 5500519, 5500519, 5500519, 5500519, 5500519, 5500519,
> 5500519, 5500519, 5500519, 5500519, 5500519, 5500519, 5500519,
> 5500519, 5500519, 5500519, 5500519)), .Names = c("ok", "time",
> "secs", "lig", "geo", "ind"), row.names = c(NA, 20L), class = "data.frame")
>
> looks like this:
>
> ok time secs lig geo ind
> 1 ok 15/01/10 10:45:00 40193.45 28 17016001 5500519
> 2 ok 15/01/10 10:49:59 40193.45 64 17016001 5500519
> 3 ok 15/01/10 10:54:59 40193.45 44 17016001 5500519
> 4 ok 15/01/10 10:59:59 40193.46 32 17016001 5500519
> 5 ok 15/01/10 11:04:59 40193.46 22 17016001 5500519
> 6 ok 15/01/10 11:09:59 40193.47 13 17016001 5500519
> 7 ok 15/01/10 11:14:59 40193.47 4 17016001 5500519
> 8 ok 15/01/10 11:19:59 40193.47 0 17016001 5500519
> 9 ok 15/01/10 11:24:59 40193.48 8 17016001 5500519
> 10 ok 15/01/10 11:29:59 40193.48 0 17016001 5500519
> 11 ok 15/01/10 11:34:59 40193.48 0 17016001 5500519
> 12 ok 15/01/10 11:39:59 40193.49 45 17016001 5500519
> 13 ok 15/01/10 11:44:59 40193.49 64 17016001 5500519
> 14 ok 15/01/10 11:49:59 40193.49 64 17016001 5500519
> 15 ok 15/01/10 11:54:59 40193.50 64 17016001 5500519
> 16 ok 15/01/10 11:59:59 40193.50 64 17016001 5500519
> 17 ok 15/01/10 12:04:59 40193.50 47 17016001 5500519
> 18 ok 15/01/10 12:09:59 40193.51 64 17016001 5500519
> 19 ok 15/01/10 12:14:59 40193.51 60 17016001 5500519
> 20 ok 15/01/10 12:19:59 40193.51 51 17016001 5500519
>
>
>
> ___
>
> There are data for "act" each 10 minutes, for "lig" each 5 minutes.
> What I would like to get are just the rows with information for each 10
> minutes (the "act" time), but I don't want just to erase the rows with NA
> values. Before that, my aim is this:
> - if "act" value (6th column) is not NA, into the "lig" column (in the same
> row) I need to get the maximum value for "lig" of the same row and one row
> before.
> for example: in the line 1231: act==0, lig==6, lig in the line 1230 is 17.
> I would like it to became in line 1231: act==0, lig==17.
>
> #this is example of B dataframe
> > dput(head(B, 20))
> structure(list(geo = c(17016001, 17016001, 17016001, 17016001,
> 17016001, 17016001, 17016001, 17016001, 17016001, 17016001, 17016001,
> 17016001, 17016001, 17016001, 17016001, 17016001, 17016001, 17016001,
> 17016001, 17016001), jul = c(14648, 14648, 14648, 14648, 14648,
> 14648, 14648, 14648, 14648, 14648, 14648, 14648, 14648, 14648,
> 14648, 14648, 14648, 14648, 14648, 14648), ind.x = c(5500519,
> 5500519, 5500519, 5500519, 5500519, 5500519, 5500519, 5500519,
> 5500519, 5500519, 5500519, 5500519, 5500519, 5500519, 5500519,
> 5500519, 5500519, 5500519, 5500519, 5500519), time =
> structure(c(1265583898,
> 1265583898, 1265584198, 1265584198, 1265584498, 1265584498, 1265584798,
> 1265584798, 1265585098, 1265585098, 1265585398, 1265585398, 1265585698,
> 1265585698, 1265585998, 1265585998, 1265586298, 1265586298, 1265586598,
> 1265586598), class = c("POSIXct", "POSIXt"), tzone = ""), act = c(200,
> 200, NA, NA, 200, 200, NA, NA, 200, 200, NA, NA, 200, 200, NA,
> NA, 200, 200, NA, NA), lig = c(0L, 64L, 16L, 0L, 14L, 43L, 22L, 0L,
> 1L, 0L, 0L, 3L, 0L, 6L, 0L, 0L, 9L, 23L, 64L, 44L), date.x = c("08/02/10",
> "08/02/10", "08/02/10", "08/02/10", "08/02/10", "08/02/10", "08/02/10",
> "08/02/10", "08/02/10", "08/02/10", "08/02/10", "08/02/10", "08/02/10",
> "08/02/10", "08/02/10", "08/02/10", "08/02/10", "08/02/10", "08/02/10",
> "08/02/10"), h = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
> 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), m = c(4L, 4L, 9L, 9L, 14L,
> 14L, 19L, 19L, 24L, 24L, 29L, 29L, 34L, 34L, 39L, 39L, 44L, 44L,
> 49L, 49L), s = c(58L, 58L, 58L, 58L, 58L, 58L, 58L, 58L, 58L,
> 58L, 58L, 58L, 58L, 58L, 58L, 58L, 58L, 58L, 58L, 58L), d = c(8L,
> 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L,
> 8L, 8L, 8L), mo = c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
> 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), y = c(10L, 10L, 10L, 10L,
> 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L,
> 10L, 10L, 10L), dtime = c(0.0827777777777778, 0.0827777777777778,
> 0.166111111111111, 0.166111111111111, 0.249444444444444, 0.249444444444444,
> 0.332777777777778, 0.332777777777778, 0.416111111111111, 0.416111111111111,
> 0.499444444444444, 0.499444444444444, 0.582777777777778, 0.582777777777778,
> 0.666111111111111, 0.666111111111111, 0.749444444444444, 0.749444444444444,
> 0.832777777777778, 0.832777777777778), land = c(0, 0, NA, NA,
> 0, 0, NA, NA, 0, 0, NA, NA, 0, 0, NA, NA, 0, 0, NA, NA), sriseIC =
> structure(c(59L,
> 59L, 59L, 59L, 59L, 59L, 59L, 59L, 59L, 59L, 59L, 59L, 59L, 59L,
> 59L, 59L, 59L, 59L, 59L, 59L), .Label = c("7:09", "7:10", "7:11",
> "7:12", "7:13", "7:14", "7:15", "7:16", "7:17", "7:18", "7:19",
> "7:20", "7:21", "7:22", "7:23", "7:24", "7:25", "7:26", "7:27",
> "7:28", "7:29", "7:30", "7:31", "7:32", "7:33", "7:34", "7:35",
> "7:36", "7:37", "7:38", "7:39", "7:40", "7:41", "7:42", "7:43",
> "7:44", "7:45", "7:46", "7:47", "7:48", "7:49", "7:50", "7:51",
> "7:52", "7:53", "7:54", "7:55", "7:56", "7:57", "7:58", "7:59",
> "8:00", "8:01", "8:02", "8:03", "8:04", "8:05", "8:06", "8:07",
> "8:08", "8:09"), class = "factor"), ssetIC = structure(c(35L,
> 35L, 35L, 35L, 35L, 35L, 35L, 35L, 35L, 35L, 35L, 35L, 35L, 35L,
> 35L, 35L, 35L, 35L, 35L, 35L), .Label = c("19:05", "19:06", "19:07",
> "19:08", "19:09", "19:10", "19:11", "19:12", "19:13", "19:14",
> "19:15", "19:16", "19:17", "19:18", "19:19", "19:20", "19:21",
> "19:22", "19:23", "19:24", "19:25", "19:26", "19:27", "19:28",
> "19:29", "19:30", "19:31", "19:32", "19:33", "19:34", "19:35",
> "19:36", "19:37", "19:38", "19:39", "19:40", "19:41", "19:42",
> "19:43", "19:44", "19:45", "19:46", "19:47", "19:48", "19:49",
> "19:50", "19:51", "19:52", "19:53", "19:54", "19:55", "19:56",
> "19:57", "19:58", "19:59", "20:00", "20:01", "20:02", "20:03",
> "20:04", "20:05", "20:06", "20:07", "20:08", "20:09", "20:10",
> "20:11", "20:12"), class = "factor"), dssetIC = c(19.65, 19.65,
> 19.65, 19.65, 19.65, 19.65, 19.65, 19.65, 19.65, 19.65, 19.65,
> 19.65, 19.65, 19.65, 19.65, 19.65, 19.65, 19.65, 19.65, 19.65
> ), dsriseIC = c(8.11666666666667, 8.11666666666667, 8.11666666666667,
> 8.11666666666667, 8.11666666666667, 8.11666666666667, 8.11666666666667,
> 8.11666666666667, 8.11666666666667, 8.11666666666667, 8.11666666666667,
> 8.11666666666667, 8.11666666666667, 8.11666666666667, 8.11666666666667,
> 8.11666666666667, 8.11666666666667, 8.11666666666667, 8.11666666666667,
> 8.11666666666667), fix = structure(c(1L, 2L, 1L, 2L, 1L, 2L,
> 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label =
> c("midnight",
> "noon"), class = "factor"), dawn = structure(c(NA_integer_, NA_integer_,
> NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_,
> NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_,
> NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_,
> NA_integer_, NA_integer_, NA_integer_), .Label = c("07:06", "07:07",
> "07:08", "07:09", "07:10", "07:11", "07:12", "07:13", "07:14",
> "07:15", "07:16", "07:17", "07:18", "07:19", "07:20", "07:21",
> "07:22", "07:23", "07:24", "07:25", "07:26", "07:27", "07:28",
> "07:29", "07:30", "07:31", "07:32", "07:33", "07:34", "07:35",
> "07:36", "07:37", "07:38", "07:39", "07:40", "07:41", "07:42",
> "07:43", "07:44", "07:45", "07:46", "07:47", "07:48", "07:49",
> "07:50", "07:51", "07:52", "07:53", "07:54", "07:55", "07:56",
> "07:57", "07:58", "07:59", "08:00", "08:01", "08:02", "08:03",
> "08:04", "08:05", "08:06", "08:07", "08:08", "08:09", "08:11",
> "08:12", "08:18", "15:27"), class = "factor"), dusk =
> structure(c(NA_integer_,
> NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_,
> NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_,
> NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_,
> NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c("15:40",
> "19:01", "19:03", "19:04", "19:06", "19:07", "19:08", "19:09",
> "19:10", "19:11", "19:12", "19:13", "19:14", "19:15", "19:16",
> "19:17", "19:18", "19:19", "19:20", "19:21", "19:22", "19:23",
> "19:24", "19:25", "19:26", "19:27", "19:28", "19:29", "19:30",
> "19:31", "19:32", "19:33", "19:34", "19:35", "19:36", "19:37",
> "19:38", "19:39", "19:40", "19:41", "19:42", "19:43", "19:44",
> "19:45", "19:46", "19:47", "19:48", "19:49", "19:50", "19:51",
> "19:52", "19:53", "19:54", "19:55", "19:56", "19:57", "19:58",
> "19:59", "20:00", "20:01", "20:02", "20:03", "20:04", "20:05",
> "20:06", "20:08", "20:09", "20:10", "20:13", "20:14", "20:15",
> "20:16", "20:23", "20:29", "20:30", "20:34", "20:35", "20:36",
> "20:38", "20:40", "20:42", "20:43", "20:44", "20:45", "20:46",
> "20:47", "20:48", "20:49", "20:50", "20:52", "20:53", "20:54",
> "20:55", "20:56", "20:57", "20:58", "20:59", "21:00", "21:01",
> "21:02", "21:03", "21:04", "21:05", "21:06", "21:07", "21:08",
> "21:09", "21:10", "21:12", "21:13", "21:15", "21:17", "21:18"
> ), class = "factor"), lat = c(14.97, 14.97, 14.97, 14.97, 14.97,
> 14.97, 14.97, 14.97, 14.97, 14.97, 14.97, 14.97, 14.97, 14.97,
> 14.97, 14.97, 14.97, 14.97, 14.97, 14.97), long = c(-24.64, -24.64,
> -24.64, -24.64, -24.64, -24.64, -24.64, -24.64, -24.64, -24.64,
> -24.64, -24.64, -24.64, -24.64, -24.64, -24.64, -24.64, -24.64,
> -24.64, -24.64), ddawn = c(8.11666666666667, 8.11666666666667,
> 8.11666666666667, 8.11666666666667, 8.11666666666667, 8.11666666666667,
> 8.11666666666667, 8.11666666666667, 8.11666666666667, 8.11666666666667,
> 8.11666666666667, 8.11666666666667, 8.11666666666667, 8.11666666666667,
> 8.11666666666667, 8.11666666666667, 8.11666666666667, 8.11666666666667,
> 8.11666666666667, 8.11666666666667), ddusk = c(19.65, 19.65,
> 19.65, 19.65, 19.65, 19.65, 19.65, 19.65, 19.65, 19.65, 19.65,
> 19.65, 19.65, 19.65, 19.65, 19.65, 19.65, 19.65, 19.65, 19.65
> ), Year = structure(c(4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
> 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), .Label = c("2007/2008",
> "2008/2009", "2009/2010", "2010/2011", "2011/2012"), class = "factor"),
> MPNJ = c(14725, 14725, 14725, 14725, 14725, 14725, 14725,
> 14725, 14725, 14725, 14725, 14725, 14725, 14725, 14725, 14725,
> 14725, 14725, 14725, 14725), WINJ = c(14727, 14727, 14727,
> 14727, 14727, 14727, 14727, 14727, 14727, 14727, 14727, 14727,
> 14727, 14727, 14727, 14727, 14727, 14727, 14727, 14727),
> MPRJ = c(14837, 14837, 14837, 14837, 14837, 14837, 14837,
> 14837, 14837, 14837, 14837, 14837, 14837, 14837, 14837, 14837,
> 14837, 14837, 14837, 14837), BREJ = c(14840, 14840, 14840,
> 14840, 14840, 14840, 14840, 14840, 14840, 14840, 14840, 14840,
> 14840, 14840, 14840, 14840, 14840, 14840, 14840, 14840),
> DEPJ = c(14648, 14648, 14648, 14648, 14648, 14648, 14648,
> 14648, 14648, 14648, 14648, 14648, 14648, 14648, 14648, 14648,
> 14648, 14648, 14648, 14648), RECJ = c(15036, 15036, 15036,
> 15036, 15036, 15036, 15036, 15036, 15036, 15036, 15036, 15036,
> 15036, 15036, 15036, 15036, 15036, 15036, 15036, 15036),
> fen = c("bre", "bre", "bre", "bre", "bre", "bre", "bre",
> "bre", "bre", "bre", "bre", "bre", "bre", "bre", "bre", "bre",
> "bre", "bre", "bre", "bre"), day = c(0, 0, 0, 0, 0, 0, 0,
> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), .Names = c("geo",
> "jul", "ind.x", "time", "act", "lig", "date.x", "h", "m", "s",
> "d", "mo", "y", "dtime", "land", "sriseIC", "ssetIC", "dssetIC",
> "dsriseIC", "fix", "dawn", "dusk", "lat", "long", "ddawn", "ddusk",
> "Year", "MPNJ", "WINJ", "MPRJ", "BREJ", "DEPJ", "RECJ", "fen",
> "day"), row.names = c(NA, 20L), class = "data.frame")
>
>
> Thank you.
>
> Zuzana
>
>
>
>
>
> On 12 February 2013 19:05, Rui Barradas <ruipbarra...@sapo.pt> wrote:
>
> > Hello,
> >
> > Your data example is a mess. Can't you please use ?dput to post it?
> > Supposing your data is named 'dat', use
> >
> >
> > dput(head(dat, 20)) # Paste the output of this in a post
> >
> >
> > Hope this helps,
> >
> > Rui Barradas
> >
> > Em 12-02-2013 15:30, zuzana zajkova escreveu:
> >
> >> Hello,
> >>
> >> I would like to ask you for help. I have quite a big dataframe (119 313
> >> rows), this is a part of it:
> >>
> >> "jul" "ind" "time" "secs" "geo" "act" "lig" "date.x" "clock" "h" "m" "s"
> >> "d" "mo" "y" "dtime" "land" "date.y" "sriseIC" "ssetIC" "dssetIC"
> >> "dsriseIC"
> >> "1207" 14628 5500519 2010-01-19 15:14:59 40197.635414 17016001 0 64
> >> "19/01/10" "15:14:59" 15 14 59 19 1 10 15.2497222222222 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1208" 14628 5500519 2010-01-19 15:19:59 40197.638886 17016001 NA 64
> >> "19/01/10" "15:19:59" 15 19 59 19 1 10 15.3330555555556 NA "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1209" 14628 5500519 2010-01-19 15:24:59 40197.642359 17016001 0 64
> >> "19/01/10" "15:24:59" 15 24 59 19 1 10 15.4163888888889 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1210" 14628 5500519 2010-01-19 15:29:59 40197.645831 17016001 NA 64
> >> "19/01/10" "15:29:59" 15 29 59 19 1 10 15.4997222222222 NA "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1211" 14628 5500519 2010-01-19 15:34:59 40197.649303 17016001 0 64
> >> "19/01/10" "15:34:59" 15 34 59 19 1 10 15.5830555555556 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1212" 14628 5500519 2010-01-19 15:39:59 40197.652775 17016001 NA 64
> >> "19/01/10" "15:39:59" 15 39 59 19 1 10 15.6663888888889 NA "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1213" 14628 5500519 2010-01-19 15:44:59 40197.656248 17016001 0 64
> >> "19/01/10" "15:44:59" 15 44 59 19 1 10 15.7497222222222 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1214" 14628 5500519 2010-01-19 15:49:59 40197.65972 17016001 NA 64
> >> "19/01/10" "15:49:59" 15 49 59 19 1 10 15.8330555555556 NA "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1215" 14628 5500519 2010-01-19 15:54:59 40197.663192 17016001 0 64
> >> "19/01/10" "15:54:59" 15 54 59 19 1 10 15.9163888888889 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1216" 14628 5500519 2010-01-19 15:59:59 40197.666664 17016001 NA 64
> >> "19/01/10" "15:59:59" 15 59 59 19 1 10 15.9997222222222 NA "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1217" 14628 5500519 2010-01-19 16:04:59 40197.670136 17016001 0 64
> >> "19/01/10" "16:04:59" 16 4 59 19 1 10 16.0830555555556 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1218" 14628 5500519 2010-01-19 16:09:59 40197.673609 17016001 NA 64
> >> "19/01/10" "16:09:59" 16 9 59 19 1 10 16.1663888888889 NA "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1219" 14628 5500519 2010-01-19 16:14:59 40197.677081 17016001 0 64
> >> "19/01/10" "16:14:59" 16 14 59 19 1 10 16.2497222222222 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1220" 14628 5500519 2010-01-19 16:19:59 40197.680553 17016001 NA 64
> >> "19/01/10" "16:19:59" 16 19 59 19 1 10 16.3330555555556 NA "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1221" 14628 5500519 2010-01-19 16:24:59 40197.684025 17016001 0 64
> >> "19/01/10" "16:24:59" 16 24 59 19 1 10 16.4163888888889 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1222" 14628 5500519 2010-01-19 16:29:59 40197.687498 17016001 NA 64
> >> "19/01/10" "16:29:59" 16 29 59 19 1 10 16.4997222222222 NA "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1223" 14628 5500519 2010-01-19 16:34:59 40197.69097 17016001 0 64
> >> "19/01/10" "16:34:59" 16 34 59 19 1 10 16.5830555555556 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1224" 14628 5500519 2010-01-19 16:39:59 40197.694442 17016001 NA 64
> >> "19/01/10" "16:39:59" 16 39 59 19 1 10 16.6663888888889 NA "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1225" 14628 5500519 2010-01-19 16:44:59 40197.697914 17016001 0 64
> >> "19/01/10" "16:44:59" 16 44 59 19 1 10 16.7497222222222 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1226" 14628 5500519 2010-01-19 16:49:59 40197.701386 17016001 NA 64
> >> "19/01/10" "16:49:59" 16 49 59 19 1 10 16.8330555555556 NA "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1227" 14628 5500519 2010-01-19 16:54:59 40197.704859 17016001 0 64
> >> "19/01/10" "16:54:59" 16 54 59 19 1 10 16.9163888888889 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1228" 14628 5500519 2010-01-19 16:59:59 40197.708331 17016001 NA 64
> >> "19/01/10" "16:59:59" 16 59 59 19 1 10 16.9997222222222 NA "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1229" 14628 5500519 2010-01-19 17:04:59 40197.711803 17016001 0 40
> >> "19/01/10" "17:04:59" 17 4 59 19 1 10 17.0830555555556 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1230" 14628 5500519 2010-01-19 17:09:59 40197.715275 17016001 NA 17
> >> "19/01/10" "17:09:59" 17 9 59 19 1 10 17.1663888888889 NA "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1231" 14628 5500519 2010-01-19 17:14:59 40197.718747 17016001 0 6
> >> "19/01/10" "17:14:59" 17 14 59 19 1 10 17.2497222222222 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1232" 14628 5500519 2010-01-19 17:19:59 40197.72222 17016001 NA 0
> >> "19/01/10" "17:19:59" 17 19 59 19 1 10 17.3330555555556 NA "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1233" 14628 5500519 2010-01-19 17:24:59 40197.725692 17016001 0 0
> >> "19/01/10" "17:24:59" 17 24 59 19 1 10 17.4163888888889 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1234" 14628 5500519 2010-01-19 17:29:59 40197.729164 17016001 NA 0
> >> "19/01/10" "17:29:59" 17 29 59 19 1 10 17.4997222222222 NA "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1235" 14628 5500519 2010-01-19 17:34:59 40197.732636 17016001 0 0
> >> "19/01/10" "17:34:59" 17 34 59 19 1 10 17.5830555555556 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1236" 14628 5500519 2010-01-19 17:39:59 40197.736109 17016001 NA 0
> >> "19/01/10" "17:39:59" 17 39 59 19 1 10 17.6663888888889 NA "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1237" 14628 5500519 2010-01-19 17:44:59 40197.739581 17016001 0 0
> >> "19/01/10" "17:44:59" 17 44 59 19 1 10 17.7497222222222 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1238" 14628 5500519 2010-01-19 17:49:59 40197.743053 17016001 NA 0
> >> "19/01/10" "17:49:59" 17 49 59 19 1 10 17.8330555555556 NA "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >> "1239" 14628 5500519 2010-01-19 17:54:59 40197.746525 17016001 0 0
> >> "19/01/10" "17:54:59" 17 54 59 19 1 10 17.9163888888889 0 "19/01/2010"
> >> "8:09" "19:29" 19.4833333333333 8.15
> >>
> >> There are data for "act" each 10 minutes, for "lig" each 5 minutes.
> >> What I wold like to get are just the rows with information for each 10
> >> minutes (the "act" time), but I don't want just to erase the rows with
> NA
> >> values. Before that, my aim is this:
> >> - if "act" value (6th column) is not NA, into the "lig" column (in the
> >> same
> >> row) I need to get the maximum value for "lig" of the same row and one
> >> row
> >> before.
> >> for example: in the line 1231: act==0, lig==6, lig in the line 1230 is
> 17.
> >> I would like it to became in line 1231: act==0, lig==17.
> >>
> >> I would be thankful for your advice.
> >>
> >> Zuzana
> >>
> >> [[alternative HTML version deleted]]
> >>
> >> ______________________________**________________
> >> R-help@r-project.org mailing list
> >> https://stat.ethz.ch/mailman/**listinfo/r-help<
> https://stat.ethz.ch/mailman/listinfo/r-help>
> >> PLEASE do read the posting guide http://www.R-project.org/**
> >> posting-guide.html <http://www.R-project.org/posting-guide.html>
> >> and provide commented, minimal, self-contained, reproducible code.
> >>
> >>
>
> [[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.
>
>
[[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.
