README.md

infact

The goal of infact is to provide a set of function to streamline working with factors

Installation

You can install the development version from GitHub with:

# install.packages("devtools")
devtools::install_github("mncube/infact")

Example

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


mncube/infact documentation built on Dec. 21, 2021, 8:07 p.m.