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
Polynomial Regression with Interaction
Grad-sistemab
Zerlina L Bi-variate Regression
17-08-2020SitemaEqLin
Área de parábolas via séries de Arquimedes e Cálculo
Sentiment Analysis - using input field
Integracao-Interpolacaa
5 # SUMMARY PART A
Ex11-03-21EdsonAmanda
Sensitivity to Escitalopram MACE count