testing.R

In jmseiden/jms_credi: JMS-CREDI Scoring

remove.packages("credi")

setwd("C:/Users/user/OneDrive - Harvard University/Documents/Git Hub/")
devtools::document("jms_credi")
install("jms_credi")

x <- credi::score()

read_csv()

m <- list()

for(j in 1:length(names(input_df))){

  m[j] <- class(input_df[j])[1]

}

library(roxygen2)

getwd()
input_df <- read_csv(file = "C:/Users/user/OneDrive - Harvard University/Documents/Git Hub/jms_credi/simulation_data2.csv", col_types = cols())