The goal of infact is to provide a set of function to streamline working with factors
You can install the development version from GitHub with:
# install.packages("devtools")
devtools::install_github("mncube/infact")
This is a basic example which shows you how to solve a common problem:
library(infact)
## basic example code
#Create dataframe
Saturday_Money <-sample(0:1,20,replace=TRUE)
Sunday_Money <-sample(1:2,20,replace=TRUE)
Sat_Work <-sample(c("Play", "Work"), 20, replace=TRUE)
Sun_Work <-sample(c("Play", "Work"), 20, replace=TRUE)
df1<-data.frame(Saturday_Money, Sat_Work, Sunday_Money, Sun_Work)
#Convert columns to binary factors
df1_fact <- mut_bin(df1, vec = c(1, 2,3,4))
df1_fact
#> Saturday_Money Sat_Work Sunday_Money Sun_Work
#> 1 No No No No
#> 2 Yes Yes Yes No
#> 3 No Yes Yes Yes
#> 4 Yes Yes No No
#> 5 Yes No Yes No
#> 6 Yes Yes No Yes
#> 7 No Yes Yes No
#> 8 No Yes Yes No
#> 9 No Yes Yes No
#> 10 Yes No Yes No
#> 11 Yes Yes No No
#> 12 No No No No
#> 13 No No No Yes
#> 14 No No Yes No
#> 15 No No Yes No
#> 16 Yes Yes No No
#> 17 No Yes Yes No
#> 18 Yes No Yes No
#> 19 Yes Yes No Yes
#> 20 No No No Yes
#Get information on the factor in column 1
finfo(df1_fact, 1)
#> Name: Saturday_Money
#> Type: factor
#> Levels: No Yes
#> Ordered: FALSE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.