지방이의 Data Science Lab

tictoc이라는 패키지를 이용하면 된다. 1 2 3 4 5 6 7 8 devtools::install_github("jabiru/tictoc") library(tic) tic("LR(f) Modelling") mod_fit = train(target ~ ., data=data, method="glm", family="binomial") pred_target = predict(mod_fit, newdata=test1,type='prob') toc()

일반적으로 사용하는 caret에서 성능평가가 아닌, 즉, caret에 포함되지 않은 모델을 만들때 유용하다. train/test set을 각각 5세트로 만들어서 confusion matrix를 직접만들어서 성능을 평가해야하는 경우 사용할 수 있다. 나의 경우 베이지안 네트워크 모델을 사용하기 위해 사용했다. 1 2 3 4 5 6 7 8 9 10 11 12 library(forecast) flds=createFolds(data$target,k=5,list=T,returnTrain = F) c=c(); f=c() for(i in 1: 5){ want_assign = data[-flds[[i]],] name = paste0('train', i, sep='', collapse = ',') c = c(c, ass..

geom_path: Each group consists of only one observation. Do you need to adjust the group aesthetic? 위와 같은 에러 코드가 나는이유: 엄청 간단한 그룹도 없는 가장 basic한 라인그래프인데 왜 안그려질까? 할때는 group=1이라는 값을 지정해주지 않아서 그런것이다. library(ggplot2) ggplot(data, aes(x=X1, y=상관계수, group=1)) + geom_line(colour='#68C8CB')+ theme_bw()+xlab("")

data[(data$group %in% 'c'),] 밑줄 부분은 인덱스로 반환된다 True혹은 False로 생겼고, 코드가 실행되면 데이터형식안에 true에 해당하는 인덱스만 추출한 특정 데이터 즉, data라는 데이터프레임 속 group c만 보고싶을때 사용. data = subset(data, !(data$시작 %in% 20193025)) 20193025는 누가봐도 없는날짜. err를 drop하고 보고 싶을때 사용.

["NA" to NA] 1 data = mutate_all(data, funs(replace(., .=='NA', NA))) [Mean Imputation] 1 data$AGE[data$USERID=="홍길동"] = mean(mean(data$AGE[!is.na(data$AGE)])) [이상치] #1. 0보다 작을 수 없는 경우인데 0보다 작게 나온 데이터 이상치 삭제 1 2 idx = which(S_table$Sales.M.2015