#r #loops
Вопрос:
Я пытаюсь перебрать 2 переменные с помощью foreach , таким образом, чтобы они выполняли квадратичную функцию на графике (как показано на рисунке), но у меня есть ошибка:
Error in {: task 1 failed - "incompatible arguments"
Мой код таков:
library("plotly") library("MASS") library("foreach") data=data.frame() i=0:10 j=(i)^2 foreach (i, j) %do% { mu1=c(-5 i,4 j) Sigma= matrix(c(1,0.5,0.5,1),ncol=2) X1_distribution=mvrnorm(n=100,mu=mu1,Sigma=Sigma) Sigma= matrix(c(1,0.5,0.5,1),ncol=2) mu2=c(5-i,1 j) X2_distribution=mvrnorm(n=100,mu=mu2,Sigma=Sigma) X=rbind(X1_distribution,X2_distribution) Y=c(rep(1,100), rep(0,100)) data.aux=data.frame(Y=Y, X1=X[,1], X2=X[,2]) data=rbind(data,data.aux) } data.visualizacion= data.frame(Y=data$Y, X1=data$X1, X2=data$X2, period= c(rep(0,200), rep(1,200), rep(2,200), rep(3,200), rep(4,200), rep(5,200), rep(6,200), rep(7,200), rep(8,200), rep(9,200), rep(10,200))) p=data.visualizacion %>% plot_ly( x=~data.visualizacion$X1, y=~data.visualizacion$X2, color= ~factor(Y), frame= ~period, type="scatter", mode= "markers", colors = c("#132B43", "#cc0000") ) p