sensor_data <- read.csv( "https://opensciencemethods.org/api/data.php?output=csv", stringsAsFactors = FALSE) first_row <- sensor_data[1, ] #print(first_row) #Uncomment if you want to inspect the first row filtered <- subset(sensor_data, type == "AQ1") #filtered <- subset(sensor_data, mac_hmac == "12345...") #uncomment to filter by your device mean(filtered$i1) cor(filtered$i1, filtered$i2) png("/plot.png", 800, 600) #use /plot.png for output graphs plot(filtered$i1, filtered$i2) dev.off()

Loading webR… Save script Save plot