RMaster - Dr. Kim's Homepage

다음 소스 코드를 참고하세요. suppressMessages({   if(!require(geosphere)) install.packages("geosphere")   library(geosphere)  }) korea<-data.frame(   longitude=c(126.956764,126.573234,126.542671),   latitude=c(37.540705,37.469221,33.364805),   city=c("Seoul","Incheon","Jeju") ) mat_seoul<-distm(korea[,c('longitude','latitude')],korea[,c('longitude','latitude')],fun=distGeo) mat_seoul/1000

#test.r args=commandArgs(trailingOnly = TRUE) print(args[1]) print(args[2]) #실행 RScript --vanilla test.r hi hello

다음 코드를 실행해서 > install.packages("nycflights13") 설치합니다. NYC 공항에서 출발하는 비행기 데이터입니다. 다음 테이블을 포함합니다. airlines airports flights planes weather 데이터를 불러옵시다. > data("airlines") > data("airports") > data("flights") > data("planes") > data("weather") airlines carrier name airports faa - FAA 공항 코드 name - 공항 이름 lat - 위도 lon - 경도 tz - 타임존 dat - daylight savings time zone /A=US DST, U=Unknown, N=no dat tzone - IANA time zone planes tailnum - Tail number year - Year manufactured type - Type of plane manufacturer,model - Manufacturer and model engines,seats - Number of engines and seats speed - Average cruising speed in mph engine - Type of engine weather origin - Orign. FOREIGN KEY /airports$faa year,month,day,hour - Time of recording temp,dewp - Temperature and dewpoint in F humid - Relative humidity wind_dir,wind_speed,wind_gust - Wind direction (in degrees), spe...

바로가기 아주 유용한 팁입니다!!!!

여러 방법이 있지만... doSNOW 패키지를 쓰는 방법을 권장해드립니다. #라이브러리 불러오기 suppressMessages({   library(doSNOW)   library(foreach) }) #코어 등록하기(3개 기준) c1=makeSOCKcluster(3) registerDoSNOW(c1) # 프로그래스바를 만들고(.options.snow로 가는 것을 잘 보세요) # .packages로 패키지를 코어로 내리고 # .export로 데이터도 코어로 내립니다. pb <- txtProgressBar(max=100, style=3) progress <- function(n) setTxtProgressBar(pb, n) opts <- list(progress=progress) r <- foreach(i=1:100,      .options.snow=opts,      .packages=c("dplyr","foreach"),      .export=c("my_function","my_variable")) %dopar% {   Sys.sleep(1)   sqrt(i) } close(pb) stopCluster(c1) 자... 사용법은 꽤나 간단하죠? 주의할 점이 있습니다. 각각의 core에 데이터를 내려 줄 때 메모리 걱정을 좀 하셔야 합니다. 간단한 계산을 여러 코어에 나눠 하실 때는 도움이 되지만 너무 많은 코어를 쓰면 메모리가 다 없어질 수도 있습니다. 그리고 등록된 cluster는 반드시 stopCluster()로 해제해 주세요. 잊어버리시면 안됩니다.

요즘 내가 속한 조직 속의 조직이 아주 힘든 일을 겪고 있다. 한 마디로 일이 잘 안된다. 결제도 안되고 준비도 어렵다. 일을 못해서가 아니다. 너무 잘해서다. 무슨 말이냐고? 때로는 누군가 일을 잘 하는 것이 싫을 때가 있다는 말이다. 전쟁에서 이기는 것보다 누가 승전보를 전했는가를 따지는 사람이 있다는 점을 알아야 한다. 일이 잘되어갈 때 함께 있어야 하고, 그 때 조직을 다스려야 득을 본다. 순리를 따라 물이 흘러가듯 살 수 없을까? 항상 고민하게 된다. 함께 일하는 분께 내핍 경영을 하자고 말씀드리고 싶다. 돈을 쓰거나 외부와 연결하는 것보다 사람들을 불러모아 일을 꾸리면 좋다. 물론 그럴 여건이 될 때 못한 일들은 한번에 할 수도 있다. 물은 높은 곳을 피하고 낮은 곳을 향해 달리는 법이다. 전략도 이를 따라야 한다. 손자가 말했듯이ㅏ.

문재윤 교수님, 명복을 빕니다. 2018년 2월 13일 오후에 유명을 달리하셨습니다. 설날을 맞아 고향으로 가는 길에 연락을 받았습니다. 미리 알지 못해 죄송합니다. 차를 돌려 장례식장으로 가니 이미 떠나신 고인의 영정이 저를 반겼습니다. 아... 좀 더 오랫동안 함께 하지 못한 마음에 후회가 그치지 않습니다.