fork download
copy 
  1. set.seed(1)
  2. E = c(1:48)
  3. TC = sample(20:40, 48, replace = T)
  4. testdata <- data.frame(Energy = E, temperature = TC)
  5.  
  6. sum(1:24)
  7. sum(25:48)
  8. sum(testdata$temperature[1:24])/24
  9. sum(testdata$temperature[25:48])/24
  10.  
  11. data_processed <- data.frame(Sum_Energy = c(0), Average_Temperature = c(0))
  12.  
  13. for (i in 1:48){
  14.   sum_day_E <- sum_day1_E + testdata$Energy[i]
  15.   sum_day_T <- sum_day1_T + testdata$Temperature[i]
  16.   if (i%24 == 0){
  17. 	j <- i/24
  18.   	Sum_E <- sum_day_E
  19.   	Ave_T <- sum_day_T/24
  20.   	data_processed$Sum_Energy[j] <- sum_E
  21.   	data_processed$Average_Temperature[j] <- Ave_T)
  22.   	sum_day_E <- 0
  23.   	sum_day_T <- 0
  24.   }
  25. }
  26.  
  27.  
Success #stdin #stdout #stderr 0.27s 40948KB
comments (?)
stdin
copy 
8
stdout
copy 
[1] 300
[1] 876
[1] 30.91667
[1] 30.29167
stderr
copy 
Error: unexpected input in:
"  sum_day_T <- sum_day1_T + testdata$Temperature[i]
  if (i%24 == 0){"
Execution halted
https://ideone.com/YgdOBd
language:
R (R 3.5.2)
created:
30 days 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!