fork(11) download
copy 
  1. set.seed(1)
  2. data <- data.frame(date = seq(from = ISOdatetime(2012, 01, 01, 00, 00, 00),
  3.                               length.out = 4320, by=5),
  4.                    nox = sample(1:20, 4320, replace=TRUE))
  5.  
  6. hr.means <- aggregate(data["nox"], 
  7.                       list(hour = cut(data$date, breaks="hour")), 
  8.                       mean, na.rm = TRUE)
  9. hr.means
Success #stdin #stdout 0.47s 23712KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
                 hour      nox
1 2012-01-01 00:00:00 10.60694
2 2012-01-01 01:00:00 10.13194
3 2012-01-01 02:00:00 10.33333
4 2012-01-01 03:00:00 10.38194
5 2012-01-01 04:00:00 10.51111
6 2012-01-01 05:00:00 10.26944
https://ideone.com/PIkeD
language:
R (R 3.5.2)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!