install.packages('swirl')
library(swirl)
swirl()
head(men)[26:27]
medel quartile
1 0.000000 0
2 3.412323 NA
3 3.01246 0
4 11.234358 NA
5 15.734323 NA
6 12.6123415 0
head(men)[26:27]
medel quartile
1 0.000000 0
2 3.412323 NA
3 3.01246 0
4 11.234358 NA
5 15.734323 NA
6 12.6123415 0
install.packages("devtools")
devtools::install_github("moodymudskipper/cutr")
ds$quartile[ds$medel != 0 & !is.na(ds$medel)] <- smart_cut(ds$medel[ds$medel != 0 & !is.na(ds$medel)], 4, what = "groups", output = "numeric")
rmROWS=function(conditions){
dataframe=get(sub("\\$.*","",deparse(substitute(conditions))))
row.names(dataframe) <- NULL
return(dataframe[-as.integer((row.names(dataframe[conditions,]))),])
}
#EXEMPEL START#
test1=infert # one argument for efficiency ;)
test1=rmROWS(test1$age==30)
test2=infert # multiple targets (no limits)
test2=rmROWS(test2$age<30 | test2$education=="6-11yrs")
#EXEMPEL END#
Flashback finansieras genom donationer från våra medlemmar och besökare. Det är med hjälp av dig vi kan fortsätta erbjuda en fri samhällsdebatt. Tack för ditt stöd!
Swish: 123 536 99 96 Bankgiro: 211-4106
Flashback finansieras genom donationer från våra medlemmar och besökare. Det är med hjälp av dig vi kan fortsätta erbjuda en fri samhällsdebatt. Tack för ditt stöd!
Swish: 123 536 99 96 Bankgiro: 211-4106