[過去ﾛｸﾞ] 臨床統計もおもしろいですよ、その１ [無断転載禁止]©2ch.net (747ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

187: 名無しさん＠そうだ選挙に行こう！ Go to vote! 2017/10/22(日)09:18 ID:bCTtjSj1(1/5) AAS
# Greatest Common Divisor with Euclidean algorithm
GCD <- function(x,y){
if(round(x)!=x | round(y)!=y) stop('Not integer')
if(!x&!y) return(NA)
a=max(c(abs(x),abs(y)))
b=min(c(abs(x),abs(y)))
if(!a*b) return(a)
r=integer()
r[1]=a
r[2]=b
省15

---

188: 名無しさん＠そうだ選挙に行こう！ Go to vote! 2017/10/22(日)13:48 ID:bCTtjSj1(2/5) AAS
> sub_group(9)
$`1`
[,1]
[1,] e
$`2`
[,1] [,2]
[1,] e t
[2,] e td1
[3,] e td2
[4,] e td3
省21

---

189: 名無しさん＠そうだ選挙に行こう！ Go to vote! 2017/10/22(日)15:51 ID:bCTtjSj1(3/5) AAS
tikan2 <- function(X,Y){　# replace Y first then X
n=length(X)
Z=rep(NA,n)
I=1:n
for(i in 1:n){
j <- which(I==X[i])
Z[i] <- Y[j]
}
return(Z)
}
省18

---

190: 名無しさん＠そうだ選挙に行こう！ Go to vote! 2017/10/22(日)16:46 ID:bCTtjSj1(4/5) AAS
> Reduce(function(x,y)x+y,c(1,2,3,4,5),accumulate = TRUE)
[1] 1 3 6 10 15
> Reduce('+',c(1,2,3,4,5),accu=TRUE) ; cumsum(1:5)
[1] 1 3 6 10 15
[1] 1 3 6 10 15
> Reduce('*',c(1,2,3,4,5)) ; factorial(5)
[1] 120
[1] 120

> beki2 <- function(x,y,p,...){ #x^y%%p
+ if(y==0) return(1%%p)
省9

---

191(1): 名無しさん＠そうだ選挙に行こう！ Go to vote! 2017/10/22(日)17:29 ID:bCTtjSj1(5/5) AAS
# When p is a prime number and a is coprime to p,
#
# a^(p-1)≡1 (mod p)
#
# Check if it works when p is lower than N.

N=100
(p100=(1:N)[!!gmp::isprime(1:N)] ) # primes < 100
m=length(p100)
cop=list()
for(i in 1:m){
省21

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.156s*