知识库 : IBMDBR测试脚本(R)

iterate.size <- 10;

width <- 100000;

time.result  <- rep(0, iterate.size*3);

dim(time.result) <- c(iterate.size,3)

for(i in 1:iterate.size){

  #ida.data <- ida.data.frame('DM_TEST_ONTIME');

  #ida.data <- idaSample(ida.data,i*width);

  #ida.data <- as.ida.data.frame(ida.data,"DM_TEST",clear.existing=TRUE);

  time.r <- system.time({

    ida.data <- ida.data.frame('DM_TEST_ONTIME');

    ida.data <- ida.data[ida.data$rownumber <= i*width,2:3];

    r.data <- as.data.frame(ida.data);

    lm(r.data$DepDlay~r.data$TaxiOut);

  });

  time.ida <- system.time({

    ida.data <- ida.data.frame('DM_TEST_ONTIME');

    ida.data <- ida.data[ida.data$rownumber <= i*width,2:3];

    idaLm(DepDlay~TaxiOut,ida.data);

  });

  time.result[i,1] <- i;

  time.result[i,2] <- time.r[3];

  time.result[i,3] <- time.ida[3];

  print(time.result[i,1:3]);

  #idaDeleteTable("DM_TEST");

  #rm(ida.data);

  #rm(r.data);

  rm(time.r);

  rm(time.ida);

}

plot(time.result, main = "R涓嶪BM rblu鎬ц兘瀵规瘮",type="l",xlab="鏁版嵁琛屾暟锛堝崟浣嶏細1000琛岋級",ylab="杩愯鏃堕棿(鍗曚綅锛氱)");

lines(x = time.result[,1],y = time.result[,3],col = "red");

legend("topleft", col=c(1,2), lty=c(1,1),c("R", "rblu"));