hyperplane_example.r

#Gerar valores aleatorios para as duas dimensões
X1<- sample(seq(-1.5,1.5, by= 0.001))

X2<- sample(seq(-1.5,1.5, by= 0.001))

#Informa os coeficientes   
beta0<- 1
beta1<- 2
beta2<- 3

#Calcula os valores da função associada à equação do hiperplano
hyperplane<-beta0+beta1*X1+beta2*X2

#Para cada valor de X1, calcula o valor de X2 que gera a reta que caracteriza o hiperplano
X2_0 <- (-X1*beta1 - beta0)/beta2

#Para cada para x1 e x2_0 calcula a reta que caracteriza o hyperplano
hyperplane_0<-beta0+beta1*X1+beta2*X2_0

#Dica, tire o comentário da linha baixo e execute-a para confirmar que os valores estão zerados
#hyperplane_0

df_hyperplane <- tibble(X1= X1, X2=X2, X2_0= X2_0, hyperplane = hyperplane, hyperplane_0= hyperplane_0)

df_hyperplane %>%
  mutate(classificação= ifelse(hyperplane<0,"Classe 1","Classe 2")) %>%
  ggplot() +
  geom_point(aes(x=X1, y= X2, color = classificação), size = 1) +
  geom_point(aes(x=X1, y= X2_0),color = "black" , size = 0.5) +
  theme_light() +
  theme(panel.grid = element_blank())