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