Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Good Ozone
myairquality <- airquality myairquality$Ozone[is.na(myairquality$Ozone)] <- round(mean(myairquality$Ozone, na.rm = TRUE)) myairquality$Solar.R[is.na(myairquality$Solar.R)] <- round(mean(myairquality$Solar.R, na.rm = TRUE)) myairquality$goodOzone <-c(0) for (i in 1:nrow(myairquality)) { if (myairquality$Ozone[i] < mean(myairquality$Ozone)){ cat(i, "goodozone", "\n") myairquality$goodOzone[i] <- 0 } else { myairquality$goodOzone[i] <- 1 cat(i, "badozone", "\n") } } myairquality
run
|
edit
|
history
|
help
0
Practical No 8
Quiz 2
AjusteNaoLinear11-02-21
Example for barplot
asdf
jessray
10-08-2020Exe
simple program
Leap Year Finder
Polynomial Regression with Interaction