[過去ログ]
臨床統計もおもしろいですよ、その2 (1002レス)
臨床統計もおもしろいですよ、その2 http://egg.5ch.net/test/read.cgi/hosp/1540905566/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
827: 卵の名無しさん [sage] 2020/01/24(金) 10:42:15 ID:9ccIONJj > TE=cbind(rep(0:1,c(3,3)),rep(0:2,2)) > colnames(TE)=c('JD','service') > TE JD service [1,] 0 0 [2,] 0 1 [3,] 0 2 [4,] 1 0 [5,] 1 1 [6,] 1 2 > cond1 <- function(P,Q) !(P&!Q) > cond2 <- function(P,Q) P==Q > f <- function(x){ + all(c( + x[1]==1 & cond2(cond2(x[1]==1,x[2]!=1),x[2]>0) | x[1]==0 & !cond2(cond <(x[1]==1,x[2]!=1),x[2]>0) | x[1]==0 & !cond2(cond2 (x[1]==1,x[2]!=1),x[2]>0) + )) + } > TE[(apply(TE,1,f)),] JD service [1,] 0 2 [2,] 1 2 > sssp://o.5ch.net/1lwmk.png http://egg.5ch.net/test/read.cgi/hosp/1540905566/827
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 175 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.007s