ftime.c

  name="google_ads_frame" marginwidth="0" marginheight="0" src="http://pagead2.googlesyndication.com/pagead/ads?client=ca-pub-5572165936844014&dt=1194442938015&lmt=1194190197&format=336x280_as&output=html&correlator=1194442937843&url=file%3A%2F%2F%2FC%3A%2FDocuments%2520and%2520Settings%2Flhh1%2F%E6%A1%8C%E9%9D%A2%2FCLanguage.htm&color_bg=FFFFFF&color_text=000000&color_link=000000&color_url=FFFFFF&color_border=FFFFFF&ad_type=text&ga_vid=583001034.1194442938&ga_sid=1194442938&ga_hid=1942779085&flash=9&u_h=768&u_w=1024&u_ah=740&u_aw=1024&u_cd=32&u_tz=480&u_java=true" frameborder="0" width="336" scrolling="no" height="280" allowtransparency="allowtransparency"> #include <stdio.h>
#include <time.h>
#include <sys/timeb.h>

void main(void)
 {
   struct timeb timezone;

   tzset();

   ftime(&timezone);

   printf("Seconds since 1 January 1970 (GMT) %ld/n",
     timezone.time);
   printf("Fractional seconds %d/n", timezone.millitm);
   printf("Hours difference between GMT and local zone %d/n",
     timezone.timezone / 60);
   if (timezone.dstflag)
     printf("Daylight savings time active/n");
   else
     printf("Daylight savings time inactive/n");
 }

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
base_efron <- function(y_test, y_test_pred) { time = y_test[,1] event = y_test[,2] y_pred = y_test_pred n = length(time) sort_index = order(time, decreasing = F) time = time[sort_index] event = event[sort_index] y_pred = y_pred[sort_index] time_event = time * event unique_ftime = unique(time[event!=0]) m = length(unique_ftime) tie_count = as.numeric(table(time[event!=0])) ind_matrix = matrix(rep(time, times = length(time)), ncol = length(time)) - t(matrix(rep(time, times = length(time)), ncol = length(time))) ind_matrix = (ind_matrix == 0) ind_matrix[ind_matrix == TRUE] = 1 time_count = as.numeric(cumsum(table(time))) ind_matrix = ind_matrix[time_count,] tie_haz = exp(y_pred) * event tie_haz = ind_matrix %*% matrix(tie_haz, ncol = 1) event_index = which(tie_haz!=0) tie_haz = tie_haz[event_index,] cum_haz = (ind_matrix %*% matrix(exp(y_pred), ncol = 1)) cum_haz = rev(cumsum(rev(cum_haz))) cum_haz = cum_haz[event_index] base_haz = c() j = 1 while(j < m+1) { l = tie_count[j] J = seq(from = 0, to = l-1, length.out = l)/l Dm = cum_haz[j] - J*tie_haz[j] Dm = 1/Dm Dm = sum(Dm) base_haz = c(base_haz, Dm) j = j+1 } base_haz = cumsum(base_haz) base_haz_all = unlist( sapply(time, function(x){ if else( sum(unique_ftime <= x) == 0, 0, base_haz[ unique_ftime==max(unique_ftime[which(unique_ftime <= x)])])}), use.names = F) if (length(base_haz_all) < length(time)) { base_haz_all <- c(rep(0, length(time) - length(base_haz_all)), base_haz_all) } return(list(cumhazard = unique(data.frame(hazard=base_haz_all, time = time)), survival = unique(data.frame(surv=exp(-base_haz_all), time = time)))) }改成python代码
07-14

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值