R에서 인도 요리 뷔페 과정 구현
11029 단어 R
기사의 목적
R을 사용하여 인도 요리 뷔페 과정을 구현합니다.
참고 : 비 파라 메트릭 베이즈 포인트 프로세스 및 통계적 기계 학습 수리
목차
No.
목차
1
인도 요리 뷔페 과정 수식
2
구현
3
시각화
1. 인도 요리 뷔페 과정 수식
2. 구현
n <- 30
alpha <- 5
set.seed(100)
for(i in 1:n){
#mの計算
if(i==1){
m <- rep(1, rpois(1,alpha/1))
}else{
m <- apply(m.data, 2, sum)
}
#次の行のデータ作成
z <- rbinom(length(m/(i+1)), 1, m/(i+1))
m.next <- append(z, rep(1, rpois(1,alpha/(i+1))))
#i行目までのデータを整理して、データ結合
if(i==1){
m.new <- append(m, rep(0, length(m.next)-length(m)))
m.data <- rbind(m.new, m.next)
}else{
m.new.data <- t(apply(m.data, 1, function(x)
append(x, rep(0, length(m.next)-length(m)))))
m.data <- rbind(m.new.data, m.next)
}
}
3. 시각화
library(ggplot2)
library(reshape2)
m.data <- data.frame(m.data)
m.data$row <- as.factor(paste0("Y", 1:nrow(m.data)))
m.data <- transform(m.data, row= factor(row, levels = paste0("Y", nrow(m.data):1)))
data <- melt(m.data)
ggplot(data, aes(variable, row)) +
geom_tile(aes(fill=value))+
labs(x="x",y="y",title="バイナリ行列")
◯SNS
・youtube
htps : // 코 m / 찬 l / 우 CFDy ぇ ywt hdtwqC3
· Twitter
htps : // 라고 해서 r. 코 m / D 켄_타
Reference
이 문제에 관하여(R에서 인도 요리 뷔페 과정 구현), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다
https://qiita.com/Tatsuki-Oike/items/367311420faf7bebd561
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념
(Collection and Share based on the CC Protocol.)
No.
목차
1
인도 요리 뷔페 과정 수식
2
구현
3
시각화
1. 인도 요리 뷔페 과정 수식
2. 구현
n <- 30
alpha <- 5
set.seed(100)
for(i in 1:n){
#mの計算
if(i==1){
m <- rep(1, rpois(1,alpha/1))
}else{
m <- apply(m.data, 2, sum)
}
#次の行のデータ作成
z <- rbinom(length(m/(i+1)), 1, m/(i+1))
m.next <- append(z, rep(1, rpois(1,alpha/(i+1))))
#i行目までのデータを整理して、データ結合
if(i==1){
m.new <- append(m, rep(0, length(m.next)-length(m)))
m.data <- rbind(m.new, m.next)
}else{
m.new.data <- t(apply(m.data, 1, function(x)
append(x, rep(0, length(m.next)-length(m)))))
m.data <- rbind(m.new.data, m.next)
}
}
3. 시각화
library(ggplot2)
library(reshape2)
m.data <- data.frame(m.data)
m.data$row <- as.factor(paste0("Y", 1:nrow(m.data)))
m.data <- transform(m.data, row= factor(row, levels = paste0("Y", nrow(m.data):1)))
data <- melt(m.data)
ggplot(data, aes(variable, row)) +
geom_tile(aes(fill=value))+
labs(x="x",y="y",title="バイナリ行列")
◯SNS
・youtube
htps : // 코 m / 찬 l / 우 CFDy ぇ ywt hdtwqC3
· Twitter
htps : // 라고 해서 r. 코 m / D 켄_타
Reference
이 문제에 관하여(R에서 인도 요리 뷔페 과정 구현), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다
https://qiita.com/Tatsuki-Oike/items/367311420faf7bebd561
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념
(Collection and Share based on the CC Protocol.)
n <- 30
alpha <- 5
set.seed(100)
for(i in 1:n){
#mの計算
if(i==1){
m <- rep(1, rpois(1,alpha/1))
}else{
m <- apply(m.data, 2, sum)
}
#次の行のデータ作成
z <- rbinom(length(m/(i+1)), 1, m/(i+1))
m.next <- append(z, rep(1, rpois(1,alpha/(i+1))))
#i行目までのデータを整理して、データ結合
if(i==1){
m.new <- append(m, rep(0, length(m.next)-length(m)))
m.data <- rbind(m.new, m.next)
}else{
m.new.data <- t(apply(m.data, 1, function(x)
append(x, rep(0, length(m.next)-length(m)))))
m.data <- rbind(m.new.data, m.next)
}
}
3. 시각화
library(ggplot2)
library(reshape2)
m.data <- data.frame(m.data)
m.data$row <- as.factor(paste0("Y", 1:nrow(m.data)))
m.data <- transform(m.data, row= factor(row, levels = paste0("Y", nrow(m.data):1)))
data <- melt(m.data)
ggplot(data, aes(variable, row)) +
geom_tile(aes(fill=value))+
labs(x="x",y="y",title="バイナリ行列")
◯SNS
・youtube
htps : // 코 m / 찬 l / 우 CFDy ぇ ywt hdtwqC3
· Twitter
htps : // 라고 해서 r. 코 m / D 켄_타
Reference
이 문제에 관하여(R에서 인도 요리 뷔페 과정 구현), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다
https://qiita.com/Tatsuki-Oike/items/367311420faf7bebd561
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념
(Collection and Share based on the CC Protocol.)
library(ggplot2)
library(reshape2)
m.data <- data.frame(m.data)
m.data$row <- as.factor(paste0("Y", 1:nrow(m.data)))
m.data <- transform(m.data, row= factor(row, levels = paste0("Y", nrow(m.data):1)))
data <- melt(m.data)
ggplot(data, aes(variable, row)) +
geom_tile(aes(fill=value))+
labs(x="x",y="y",title="バイナリ行列")
Reference
이 문제에 관하여(R에서 인도 요리 뷔페 과정 구현), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다 https://qiita.com/Tatsuki-Oike/items/367311420faf7bebd561텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념 (Collection and Share based on the CC Protocol.)